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Error Handling & Logging Routines 


DEFINITIONS 


OPAO ERROR LOGGING DATA 


ERRSCRASHVC, 


ERRSCRASH_PORT, 
ERRSPWF_RECOV, 


ERRSCLEANUP_PKT 
FLUSH_Q 
ERRSDISP_ENTRY 
ERRSINIPORT, 
ERRSBUGCHECK, 
ERRSBUGCHECKNF , 
ERRSDEBUGCHE CK 
ELOGSINIT_SWERR, 
ELOGSUCODE_NORD, 
ELOGSHARDWARE 
ELOG$Q_INTRLOCK, 
ELOGSREGDUMP, 
ELOGSPACKET, 
ELOGSCABLES, 
ELOGSPTH_ST_CHG 
ELOGSCBL_X_CHG 
ELOGSERROR_DG 
OPAO_LOG, 
OPAO"LOG. FORK, 


CRASH VC ON SPECIFIED 
PATH f 


TED QUEUE HDRS 
CONNECT CALL 
POWER 
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EN 

E OF A SINGLE ENTRY 
ORT HARDWARE INIT 
RD PORT LOCAL STORE 


N MEMORY 
RECORD LOCAL STORE Set 
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PROPERLY READ BACK 


ROR 
LOG HARDWARE ERROR 
Los QUEUE INTERLOCK 


LU 
DEVICE ATTENTION 


L 
ERROR, GENERAL CASE 
LOG CABLE STATUS 
CHNAGE, GENERAL CASE 
LOG PATH STATUS 


LOG CABLES CROSSED OR 
NOT CROSSED STATUS 
CHANG 


E 
LOG ERROR LOG DATAGRAM 
-OPAQ ERROR LOGGING ROUTINE 
OPA OGGING 


FORK PR 
OPAO ERROR LOGGING FORMATTING ROUT 
ERRSCNV_HEX_DEC ROUTINE TO CONVERT A BINARY NUMBER 


FORMAT_PKT, 
FORMAT_PORT, 
FORMAT_REGS, 


FORMAT_REV 
HEX_TO"ASCII 


INTO ITS DECIMAL ASCII EQUIVALENC 
ROUTINE TO FORMAT PACKET 
INF ORMAT 


PORT UCODE REV LEVELS 
TO CONVERT A BINARY NUMBER 
S ASCII EQUIVALENCE 
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: VAX/VMS EXECUTIVE, 1/0 DRIVERS 

; ABSTRACT: ROUTINES TO HANDLE CI VIRTUAL CIRCUIT RECOVERY 
; AUTHOR: N. KRONENBERG, DECEMBER 1981 

; MODIFIED BY: 


v04-001 excore N. Krenenders 7-Sep-1984 
Disable invalid buffer name bugcheck since bus is found. 
With this edit, all optional bugchecks are disabled 
and maximum error recovery enabled. 


v03-040 NPK3065 nenberg 23-Aug-1984 
Disable MFQE etek” Cuscherk since bug is found. 


v03-039 NPK3061 N. Kronenberg 9-Aug-1984 
qoneve & optional debug bugcheck on unexpected port 
nterrupt. 


v03-038 NPK3060 N. Kronenberg 1-Aug-1984 
Remove remote port from OPAO messages concerning 
loopback dgs since n ne remote port is applicable. 
Make loopback dg OPAO messages be panarted always. 


V03-037 NPK3058 N. Kronenberg 25-Jul-1984 
Add MFQE optional bugcheck enable flag and enable 
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three kinds of optional bugchecks. 
V03-036 NPK3057 N. Kronenberg 23-Jul-1984 


Change the OPAO message descriptors for cov/gort 

ucode not at required rev level not to include 

ett ive messages since these are generated separately 
n PAINIT, CLEANUP_PDT. 


V03-035 NPK3055 N. Kronenberg 14-Jul-1984 
Change OPAO error lo aege for cpu/port ucode rev 
error to include port offline msg. Change wording 
of cey ucode rev error msg to say that rev is insufficient 
for CI activity. 
Add separate port ucode rev warning msg that does not 
include offline announcement. 
Add ELOGSCPU_REV, ELOGSUCODE_ERR, ELOG_UCODE_WARN. 


V03-034 NPK3054 N. Kronenberg 24-Jun-1984 
Add OPAO messages to warn operator of either CPU 
rev level insufficient to support ci, or the ci 
ucode rev level is insufficient. 


v03-033 NPK3053 N. Kronenberg 17-May-1984 
Fix branch error in NPK3052. 


v03-032 NPK3052 N. Kronenberg 4-May-1984 
Fix ERRSPWF_RECOV to properly handle a port failure 
for a port with circuits in VC_FAIL state. 


Oo 
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V03-031 NPK3048 N. Kronenber 99-Apr-1984 
Add two new SDEBUGCHECK enable flags. 
v03-030 TMKOO00S Todd M. Katz 25-Mar-1984 


Change the text of the remote system conflicts _OPAO error 
logging message. 


v03-029 TMK0004 Todd M. Katz 24-Mar-1984 
When it is decided to log an error condition to _OPAO, a fork 
process is created *o format and broadcast an appropriate 
message. It is pbeghutety necessary that all messages be 
formated at fork IPL. This is because there is only one copy 
of each message, but there maybe multiple C1 ports making use 
of each message. 


oooo 
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OOooooo 


However, what is incorrect is that the optional data which aeyee 
used for formatting a _OPAO error log message is being extracted 
from the UCB error Logging buffer or from the device registers 
within the context of the fork process. By the time the fork 
process gets a chance to execute and make use of this opt tonal 
data for formatting a message, it is possible (and in the case 
of device registers certain) that the values stored in these 
locations will have changed. 


The golut ton to this probles is to store the needed information 
within UCBST_OPAO_TEMP (a new UCB field three longwards in size) 
ust before Ehe creation of the fork process within OPAO_LOG. 

hen, whenever optional formatting of an _OPAO error log message 
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is required, the routines which perform the formatting make use 
of the information stored in this UCB location. . 


Three types of information maybe required for additional 
formatt ng - device soptesers a remote port number, or Cl 
packet information. I have defined a OPA error Logging control 
flag for each information type. For a given error condition the 
setting of these control flags will direct what information is 
saved within this new UCB location, before the fork process is 
created, to be used in the formatting of the appropriate _OPAO 
error log message. 


v03-028 TMKO0003 Todd M. Katz 06-Mar-1984 

Add support for _OPAO error logging. This involves determining, 
whenever error Logging is to be done, whether or not an attempt 
should also be made to Log the error condition at _OPAO. Such 
Logging will piueye be attempted for certain error conditions, 
and it will also be done whenever it is found that the system 
device, which is presumed to also be the error logging device, 
is currently unavailable. 


A table driven routine, OPAO_LOG, is used to determine whether 
or not _OPAO error Logging should always be done for a given 
error condition as well as to provide the error Logging message 
to be broadcast to _OPAO and optional formatting information. 
When a decision is made to perform this error logging, the UCB's 
message fork block is used to create a fork process provided it 
is not already in use (in which case OPAO error logging will be 
bypassed for this error condition). When this fork process 
resumes control at OPAO_LOG_FORK, it proceeds to format an error 
Logging message and broadcast it to _OPAO. In the case of 
certain unrecoverable port initialization errors, this fork 
process will also broadcast a second message indicating that the 
port will be left offline. 


v03-027 TMKO002 Todd M. Katz 21-Feb-1984 
Make the fot Loutng changes to fix several bugs and in support 
7 ehiguing gore nitialization to proceed a {PL 8 instead of 
a . : 


1. Do not disable all interrupts by coiging IPL to IPL$_POWER 
before calling INISPORT from within ERRSINIPORT. Port 
soi g teh ization is now being done at fork IPL instead of at 


2. Disable device inserrupts within ERRSINIPORT before calling 
INISPORT to re-initialize the port. This is done by 
explicitely placing the port within the un-initialized state. 
If this is not done it is possible that the port maybe in the 
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un-initialized state but with device interrupts enabled when 
port re-initializtion begins. Then if a device interrupt 
occurs quring port re-initialization it may prevent the 
un-initialized -> disabled state transition from occurring 
at the proper time. The end result is that a second attempt 
at re-initializing the port will be required. 


3. The way in which ERRSPWF_RECOV is forking is incorrect. 
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4 i oes not make proper use of the UCB_V_FKLOCK fork block 
0 nterlock bit. It never sets the interlock bit before using 
88 the fork block if the fork block is currently not in use. 
0 This may result in this same fork block being used twice 
0 in succession. In such a situation the context saved by the 
00 first fork, the fork initiated by ERRSPWF_RECOV, would be 
B38 overwritten by the context of the second fork. 
000 I have corrected this problem by utilizing the new routine 
000 INISFORK to control the forking. This routine knows how to 
000 extract the fork block from the appropriate fork queue in an 
888 atomic fashion, and how to make proper use of the fork block 
0 interlock bit. This routine always returns control at fork 


IPL by jumping to the address provided it as input in R3. 


= 
. 


I have also corrected an error in how ERRSPWF_RECOV cleans up 
a local port's path blocks, and crashes the local port. 

This routine should only be crashing the port after every 
SYSAP with a connection over the port has been notified and 
has had a chance to issue a DISCONNECT. A DISCONNECT, under 
such a circumstance, would result in the path block being 
deleted, and the count of path blocks associated with the 
port being decremented, if the disconnected connection 
represented the path's Last connection. Therefore, 
ERRSPWF_RECOV should only be crashing the port when the count 
of path blocks associated with the port reaches zero 
oe that every SYSAP which had a connection over this 
port has been notified and issued a DISCONNECT. 


Unfortunately when the co-routine CNFSLKP_PB_PDT encounters 
the end of the PB List, ERRSPWF _RECOV a potted | crashes the 
port regardless of the number of path blocks still associated 
with the port. I have corrected this routine so that when the 
end of the port's path block List is encountered, 
ERRSP#F_RECOV will onty crash the port if the count of the 
port's assocated path blocks is zero. 


v03-026 TMKOO01 Todd M, Katz 14-Feb-1984 
Add support for error Logging of the refusals of the local 
port to open up a virtual circuit to a remote port because of 
conflictions between information provided by the remote system 
and a known system within the system-wide configuration data 
base. This support involves modification to ELOGSPACKET so that 
a special type of packet is logged whenever this event occurs. 
Instead of logging a data packet, this event results in the 
logging of the known system ID, the known system nodename, and 
the remote system nodename in addition to the usaul stuff which 
is always logged (local station address, etc... ). 


Also, fix two small bugs within ELOGSPACKET. Currently, the. 
entire eoesege logging area is not Og used (or is not being 
zeroed out if there is no packet to be logged). This is because 
the destination sizes used in the MOVC5s only include 4 bytes 
of the 8 bytes of CI packet command/control/status 

patorast ten, CI packet PPD type, and CI packet message data 
ength. 
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v03-025 om 3044 N. Kronenberg 6-F eb-1984 

rOsseRnor DG to log an error datagram. Modify 
eco 5c LOG_LM to a error A.J eoeegr ene which are 
Larger than other Log - mes 


Disable all optiona vochecks. 1a ERRSDEBUGCHECK. 
V03-024 NPK3043 Kronenberg 6-F eb-1984 | 


ae ELOG$$1.0G_ un" to copy all 6 bytes of local sysid. 
V03-023 NPK3039 N. Kronenberg 11-Jan-1984 


Zero PBSL_CLSCKT_DG when slesin ¥¢ in ERRSCRASHVC. 
Add ERR$V_DEB_PSRX Ho for enablin ne’ di see) tne bugcheck 
on interrupt with undefined bits se R. 


V03-022 NPK3038 N. snbecs 6-Dec-1983 
Disable the ERRSDEBUGCHE CR f os for connect request 
Heo gy path block and SCS bookkeeping with no path 

ock. 


V03-021 NPK3037 Kro enennees 11-Nov-1983 
Add ERRSDEBUGCHECK flags definitions and flags longwd. 
op aes] CLEANUP_PKTS a global routine, 
hake ‘subroutine CALL_INIT_PORT a global routine, | 
Remove queue interlock clear from FLUSH_Q since it 
is already done in routine UNLOCK_BADQ. 


v03-020 NPK3029 .— «Kronenberg 22-Jul-1983 
Enhancements for V4.0: | 
Change ERRSCRASH PORT to not fake a power off to 
prevent reinit of ny s ERTCNT is exhausted 
CINISPORT now handles FF, 
Change IOFORK to FORK - ERRSPUF RECOV. 
Remove references to PB$L_SB in favor of PBSL _SBLINK. | 


V03-019 NPK3024 N. Kronenberg 18-May-1983 
Add Logic or variable net header size to routine 
ELOGS$LOG_L 

V03-018 KTA3046 Kerbey T. Altmann 30-Mar-1983 
Redo for SCS/PPD split. 

V03-017 NPK3011 Kronenber rg 22-Nov-1982 
ie ERRSCRASH_ pori to call ERRSPWF_RECOV at device IPL. 

V03-016 ROW0133 Ralph 0. Weber 14-0CT-1982 


8 
Correct PPD$W LENGT reference in ELOG$$LOG_LM to Ae SIZE. 
This causes the allocated pool size value td be used, as 
documented, when the maximum size of the message region to be 
error logged is calculated. 

This change will be distributed in Version 3.2. 


v03-015 NPK3006 N. Krenenbers 9-S a 
Comment possible aux status input to ERRSPWF RECOV ain: 
Fix data structure error path y zeroing locked queue 
Loseses in ERRSFWF_RECOV erior o forking down from 
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v03-011 


v03-010 
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v03-008 


v03-007 
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device IPL. 


ROWO119 Ralph 0. Weber 9-AUG-1982 

Modify ELOG$$L0G tm so that it does not copy ations re 
the space allocated to a oe packet ~ Smee in the 

word field of the standard pool unit head 

This change owt be in a new driver image shipped in V3.1. 


ROWO115 Ralph 0. Weber 30-JUN-1982 
Modify ELOG$$LOG_ tn to always copy first 68 bytes of message 
inte CB logged message buffer and to specially zero the 

aS Hs when no areneny packet exists. Also replace 
BOG $LOG_LM system block search code with use of new 
PB$L_SBLINK pointer to SB. 
This change will be in a new driver image shipped in v3.1. 


NPK3001 Kronenberg gor juga t gee 
Clear UCB fork blk lock following power fail fork 
ROWO111 Ralph 0. 27-JUN-1982 


Weber 
Add ELOGSCABLES, a Foutine Like ELOGSPACKET only with change 
of cable state error type. This routine required for loopback 
datagram logging. Add a clear for UCBSL_CICMD when there is 
no avanege packet so that it will be zerd just like everything 


else 
This “change will be in a new driver image shipped in V3.1. 


oT W0110 Ralph 0. Weber 24-JUN-1982 

Fix ELOGS$LOG_LM to "ed}ust error count up by one while copyin 
it into the UCB log message buffer, eines UCBSW_ERRCNT has no 
yer been incremented. 

his change will be in a new driver image shipped in V3.1. 


ROWO0108 Ralph 0. Weber 24-JUN-1982 
Fix ELOGSPACKET and PPLOGSSLOG. LM to handle case where no 
packet exists. Also correct ELOGSPACKET so that error sub- 
tye information is retrieved after CNFSLKP_PB_MSG is called. 
This change will be shipped with VAX/VMS Version 3.1. 


NPK3001 enberg 22-Jun-1982 
Fix to keep UCB hy block locked on power fail 
recovery fork. 


ord o Ralph 0. Webe 7-JUN-1982 

Add ¢ rror appro ciate: ore logging routine at 
CONF 1G ERR in ERRSVCCLOSED_M 

This change will be in a new ro image shipped in V3.1. 


ROWO0092 Ralph 0 Ueber 3-JUN-1982 

Add error Logg! ng at R. which rA°st ene logged message error 
log entries; ELOGSPACKET LOGSPT T_CHG, and ELOGSCBL_X_CHG. 
Also added necessary definition macro references. 

This change will be in a new driver image shipped in V3.1. 


ROWO0089 Ralph QO. Weber Rapes -1982 


Add error Logging rout nes which gene e device attention 
error log entries; ELOGSINIT_SWER ELOGSUCODE NORD, 


ee ui 
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ELOGSHARDWARE, and ELOGSINTRLOCK. Also add register dump 
routine, ELOGSREGDUMP. Add necessary definition macro 
references too, F 

This change will be in a new driver image shipped in v3.1. 


V03-004 NPK2019 N. Kronenberg 6-Apr-1982 
Changed DISP_ENTRY to grovel ERRSDISP_ENTRY. 
Add routine ERRSCRASH_ , 
Fix illegal CDT state in NOTIFY_SYSAP to be nonfatal 
bugcheck with recovery rather than fatal bugcheck. 
Fix PB lookup failure in ERRSVCCLOSED_MSG to crash VC. 
Change queue interlock failure in FLUSH_Q to be non 
fata puaches ° 

AL te O_CDTS to get remote port from PB and use 


URN ° 
Fix CLEANUP_PKTS to reset logout area longwd immediately 
after processing entry. 


V03-003 NPK2018 N. Kronenberg 29-Mar-1982 
Modified ERRSCRASHVC_PB to use dg buffer in PB for 
SETCKT instead of allocating buffer. 
Broke ERRSDISC_VCFAIL into main routine and new 
subroutine, CHR_NO_CDTS. 
Made disconnect on peoyer failure synchronous -- 
it suspends till CDT is ossuen tt removed. 
Modified CONNECT_ABO and DCONNECT_OK in NOTIFY_SYSAP 


SOCCCCOCOOSOOCOCOOOCOOOOOOOOOOoOOoO 
SOOoOoooooQooooooooooooooooooo 
COOQoooooQooooooooooooooooooo 
SOoOooooooooooooooooooooooooeo 
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TOTP TOTO Tee re rere re rere rererererererererererererererererererererererer 


SINS SEND DS DE DDD DD De TT BB 


So 

oOo 

oO 
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0000 to call CHK_NO_CBTS. 

0000 V03-002 NPK2018 N. Kronenberg 25-Mar-1982 
44 Fix ERRSDISC_PWFAIL to purge out command queues again. 
0000 v03-001 NPK2016 N. Kronenberg 18-Mar-1982 
0000 Fixed .TITLE 

0000 

0000 

0000 -- 


<vU 


PAERROR 
v04-001 SEF ON 
0000 


COOCOCCOOCOOCOOCOCOSOOOCSOOOSOOOOOOOCOOOOoOOoOSO “+= 


oo 


F 13 
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16-S 
18-8 
-SBTTL DEFINITIONS 


Set PSECT to driver code: 


4 

5 

§ -PSECT $$$115_DRIVER 

8 ; 

+1 3; System definitions (LIB.MLB 

91 

3g enocross 

9 SCDTDEF 

94 SCLUBDEF 

95 SCRBDEF 

38 SODBDEF 

9 SDYNDEF 

98 EMBDEF 

99 SEMBLTDEF 
400 DBDEF 
401 SIPLDEF 
40 SMCHKDEF 
40 SPBDEF 
404 SPDTDEF 
405 SSBDEF 
406 SSDEF 
407 SUCBDEF 
408 SVECDEF 
409 
410 ; . 
ai; ; PADRIVER definitions (PALIB 
t18 
414 SPAERDEF 
415 SPAPBDEF 
416 SPAPDTDEF 
417 SPAREGDEF 
418 SPAUCBDEF 
419 SPPDDEF 
420 cross 


» LONG 


) 


Bete Se Se Se Ge Ge Ge Ge Ge Se Se Se Se Ge Be 


-MLB): 


Ep-198 01:16:10 


AX/VMS Macro v04-00 
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Connection Descriptor offsets 
Cluster Block offsets 

Channel Request Block offsets 
Device Data Block format 

Dynamic data structures types 
Error log buffer offsets 

Logged a subtype values 
Interrupt Data Block offsets 
Define priority levels 

Protect from machine check codes 
Path Blk offsets 

Port Descriptor offsets 

System Block offsets 

System service return codes 

UCB definitions 

CRB vector segment offsets 


PADRIVER error code definitions 
PA-specific extension to PB 
PA-specific extension to PDT 

CI port device vegteter defns 
PA extension to UCB 

PPD Layer of msg/dg header 


roe 
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.OPAO ERROR LOGGING DAT 10-SEP-1984 01:16:10 CDRIVER.SRCJPAERROR.MAR;2 (3) 
6 2 ¢ -SBTTL _OPAO ERROR LOGGING DATA 
4264 ;+ 
0 425 ; The routine which logs errors to _OPAO is table driven. There are separate 
0 4 § ; tables for device attention and logged message errors. What follows is the 
4e7 ; the macro that is used to generate each table entry, the two tables, various 
; 8 ; offsets to the fields within each table entry, and assorted constants. 
900 o30 
$0 4 ¢ : Macro to generate an entry within an _OPAO error logging table. The format 
464 : ? : of each entry is as follows: 
0000 435; -BYTE <ERROR SUBTYPE> 
0000 4 § : -BYTE <ERROR TYPE> 
4464 437 ; -BYTE <CONTROL FLAGS> 
000 438; -BYTE <OPTIONAL OFFSET TO MSG FIELD TO BE FORMATTED> 
4448 439 ; «WORD <OPTIONAL OFFSET (from PASCTLINIT) TO FORMATTING ROUTINE> 
444 re ; -WORD <OFFSET (from PASCTLINIT) TO ERROR MSG> 
$009 re : ALL of the _OPAO error messages are placed within their own PSECT. Each 
0000 443 ; _OPAO error logging table must be terminated by a word of -1. 
0000 445° 
sit rr «MACRO $OPA0_LOG TYPE ,SUBTYPE,FLAGS, FORMAT ,MSG 
0000 448 Pe NB TYPE 
0000 449 -BYTE <PAERSK_ES_‘SUBTYPE> ; Error Subtype 
464 oay -BYTE <PAERSK_ET_'TYPE> ; Error Type 
0000 $3¢ IF NB FLAGS ; 
9444 te7 | FLAGS ; Flags affecting logging to OPAO 
0000 455 LIF 8 FLAGS 
000 456 -BYTE 0 
0000 238 “ae 
0000 459 If NB FORMAT 
0000 460 ~BYTE  %LOCATE(<xx>,MSG)+11 ; Offset to field to be formatted 
9464 $8) son? <FORMAT-PASCTLINIT> ; Optional formatting routine offset 
0000 268 LIF 8 FORMAT 
a 
$00 466 -ENDC 
8 swe 
000 469 “PSECT $$$110_MSGS 
000 470 S$SMSG_PTR =. 
4 $2) “ASCIC  <tR>CLP>CRELLD BARD, *MSG'*<CR><LF> ; Message to display at OPAO 
000 298 WORD <SSMSG_PTR-PASCTLINIT> ; OPAO msg offset 
000278 = 
000 $28 iF B TYPE 
0 3 47 -WORD -1 3; 71 marks the end of the table 
0 478 -ENDC 
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0000 479 -ENDM 
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00000000 
00000001 


00000001 
00000002 


00000002 
00000004 


00000003 
00000008 


00000004 
00000010 


00000000 
0000000A 
00000007 


00000006 


a5 tt a8 


= 
+ 


WO OONAUE Wir 


Fd ek eked edad Dd 
Zsess 


Fd 


SOOCCCCSOOOOSOSOSOOSOOOOOOOSOOOSoS 
= 
ono 
co 


OOCOOCOCOCoCoOoOooooooooooooooooo 


BELL 


COOooooooooooooo 
COOoooocoeo 


SOOoooooooooooooo 
=OODNAULS WIN 9 ODNAUES WN (“OVO ONOUS wo 0 


OOOO SoOOOOOOOOOSoOOoOSoSoS 

oooooo 

ASOOOCOCOOOoOoSoO 
PUPVPV PVP VIVLVSUSPUSUSPUSUSVSUS USUI SISOS 
WIAPPIPIPIPININININIDD 2 9 OO I SM QDOOOOCOOOCCO NO 


oooo 


1 13 
g Logging Routines aks at 9 91:16: 5 VAX/VMS Macro Vv04-00 
AT “SEP-19 1:16:10 CDRIVER.SRCJPAERROR.MAR; 2 


1 4 


; Offsets to the various fields within a _ 
SUBTYPE = 0 : 
TYPE =] : 
CFLAGS = ¢ : 
OFFSET = : 
FORMAT = 4 : 
MSG = 6 : 
OPAO_LOG_SIZE = 8 : 


V_ALWAYS = 0 ; 
M_ALWAYS = 1 

V_OFFLINE = 1 : 
M_OFFLINE = 2 : 
V_RPORT = 2 ; 
M_RPORT = 4 ; 
V_PKT = 3 : 
M_PKT = 8 : 
V_REGS = 4 : 
M_REGS = 16 : 


Page 


OPAO error logging table entry. 


fset to Error subtype 

fset to Error type 

fset to Control Flags 

a to Optional Formatting Offset 


fset to Error Message Offset 
_OPAO Error Logging Table Entry Size 


2 3 
3; Define the bits within the control flags _OPAO error logging table field. 


; Always print out this error message 


Always print out a second message 
(Port has gone Offline) 


Store the remote port number in the 
_OPAO error loggging UCB data area 


Store the CICMD peceey information in 
the _OPAO error loggging UCB data area 


Store the device registers in the 
_OPAO error loggging UC8 data area 


> Define ASCII symbols for various hexadecimal formatting characters. 


CR 
LF 


3 
0 $ 


nun 
Noo 


CTRLR_NAME = 6 


ASCII for carriage return, 


Linefeed, 
and bell 


Byte offset to device controller 


letter in error logging messages 


: Define table for hexadecimal -> ASCII and hexadecimal -> decimal -> ASCII 


conversions. 


CONV_TABLE: 
eASCIIL = /0123456789ABCDEF / 


set to Optional Format Routine Offset 
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: Device Attention _OPAO Error Logging Table. 


NOUS WwW 


8 DA_OPAO -£06 TAB: 
OPAO_ LOS INSW,POOL .M poor Soe OFFLINE, 
<Insuf ficient citga popes Pool” ser Initialization> 
LWAYS+M_OFFLINE,,=- 
ed to stone Port Micr oncode Image> 
SOPAO Log” INSW,SCSID,M ALWAYS#M. OFFLINE,.- 
<SCSSYSTEMID has NOT been set to a Non-zero Value> 
SOPAO_LOG HW,UCDW.M_ALWAYS,,- 
<Micro-code Verification erro 
SOPA0_LOG HW, INIT, M ALWAYS+M "REGS FORMAT_REGS,- 
<Port Transition Failure ="CNF/PMC/PSR” xxxxxxxx/2000000x OOD 
SOPAO -L06 WER ,M 7 REGS ,FORMAT_REGS ,- 
<Port Error MBitles Set - CRF / /PMC/PSR 900000000 20000000 30048000 
SOPAO -L06 HW, PDWN, A Y aaes,* 
<Port roe Down> 
SOPA0_LOG W,PUP, a ALWAYS, ,- 
<Port Decal Up> 
SOPA0_LOG HW ,UXIN,M_ALWAYS+M_REGS ,FORMAT_REGS,=- 
<Unexpected Interrupt | CNF/PMC/PSR xX / 0K ED 
SOPAO_LOG HW,REVER,M_ALWAYS ,FORMAT_REV,- 
<CI port ucode not at required rev Level. RAM/PROM rev iS xxxx/xxxx 
SOPA0_LOG HW,REVCA,M_ALWAYS ,FORMAT_REV,- 
<CI pore ucode not at current rev level. RAM/PROM rev is xxxx/xxxx> 
SOPA0_LOG CPUREV,M_ALWAYS,, 
<CPU eude" not at required rev level for CI activity> 
SOPA0_LOG ILCK,MQRM,M_ALWAYS, 
<Message Free Queue Remove "Failure> 
SOPA0_LOG ILCK,DQRM,M_ALWAYS,, 
<Datagram Free Queue Renove *Failure> 
SOPA0_LOG ILCK,RQRM,M_ALW 
<Response Queue Remove “tai lure> 
$OPAO_LOG ILCK, HCIN.A. ALWAYS,, 
<High Priority oe Queue Insert Failure> 
SOPA0_LOG IN - 
<Low Priority atl st Insert Failure> 
SOPAO Ae ILCK,MQIN,M_ALWAYS, 
ssage Free Queue Insert "Failure> 
SOPA0_ Los ILCK,DQIN,M_ALWAYS,, 
<Datagram Free Queue Insert *Failure> 
SOPA0_LOG 


PDP ASPs Be Be BS BE EE EAI 
AH—OOWONAUE WN O OONOUS WhO 


DUPVUPV IV IVPVDVSIULUIVLUDVLUSUSDUSV SUISSE VS USUI IS USUSVS ISIS ISSO IOS ISIS ISIS 
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voee 001 EOPRO ERROR LOGEING BATR 18-SEP-1986 O1:16:70 YORIVER eaeieALcROS mar:2 29° | 
Mi 
- ; Logged Message _OPAO Error Logging Table. 
AA 
AA 4 LA_OPAO_L 06} TAB: 
OAA 5 L0G PKT,UPKT,M ~~ yy PKT, FORMAT _P 
OAA : <Unrecognized SCA Packet - FLAGS/ OPC/STATUS/PORT XX/ KK / xx / XD 
0B SOPA0_LO6» Sue. M_ALWAYS+M_RPORT, FORMAT PORT,-=- 
08 8 Port has Closed Virtual Cifcuit = REMOTE PORT xxx> 
OBA 9 SOPAO LOG PKT,C _ eae 
OBA 90 <Software Shutting”do n Por 
OC 91 SOPAO_LOG P _ALWAYS#M RPORT, FORMAT_PORT,<- 
oc 3 <Software is Closing Virtual Circuit = REMOTE PORT xxx> 
455 9 SOPA0_LOG WAYS+M_PKT,F T_PKT,- 
OCA 594 <Received Connect Maithout Pith-Block - “FLAGS/OPC/STATUS/PORT xx/xx/ 
S055 95 SOPA0_LOG PKT,SCA,M ALWAYS#M. PKT, FORMA 
00D 298 <Inappropriate §CK Control Message - FLAG§/0PC/STATUS/PORT ux/xx/xx 
4s 9 SOPA0_LOG KT,NOPB,M_ALWAYS+M_RPORT ,FORMAT_PORT,- 
ODA 598 <No Path-Block Durin virtual Circuit Close - REMOTE PORT xxx> 
OQOE 599 SOPA0_ L0G PKT poe PORT, T_PORT,= 
OOE 600 <HSC Error r Loggi ng Batagram Recetycd = REMOTE PORT xxx> 
QOEA 601 SOPAO_ or KS ,M_ALWAYS+M_RPORT ,FORMAT_PORT 
OOEA 60¢ <Remote cysten t Conflicts with known System - REMOTE PORT xxx> 
bors 60 SOPAO a RPORT ,FORMAT_PORT 
OOF 604 h #0. Has gone from GOOD to BAD = REMOTE PORT xxx> 
OOFA 605 SOPAO “L0G C oM_RPORT ,FORMAT_PORT,=- 
OOFA 006 <Path #1. Has gone from GOOD to BAD = REMOTE PORT xxx> 
b105 60 SOPA0_LOG CBL,0BG,M_RPORT ,FORMAT_PORT,- 
010 608 <Path #0. Has gone from BAD to ~ G000 = REMOTE PORT xxx> 
3 4 609 SOPAO a »M_RPORT, deg S RT,- 
10A 610 ath #1. Has gone from BAD to 6000 _ - REMOTE PORT xxx> 
b145 611 SOPAO Los UC,M_RPORT ,FORMAT 
011 o1¢ <Cables have 8A a from “UNCROSSED to “CROSSED - REMOTE PORT xxx> 
O11A = 61 SOPA0_LOG RPORT, FORMAT _P 
O11A =: 614 <Cables have seat, te from “CROSSED to UNCROSSED - REMOTE PORT xxx> 
0122 615 SOPAO 106, 
4 2 616 Path h #0" sah Sopback he os $,9ne_ from GOOD to BAD> 
12A 617 SOPAO_ Log GB 
12A 6618 ath #1. cat opack he o A a from GOOD to BAD> 
1 $ 619 SOPAO_ L06 
1 620 h #00 cat oopback he = et from BAD to GOOD> 
013A 621 SOPA0_ L05.* 
135A 66 § ath #1. gr oopba ack“h one 44 al BAD to GOOD> 
128 6 SOPAO 105.” BX, M_RPOR eFORMAT_P 
14 624 < #0: Has become working but E croge7 =D to Path #1. - REMOTE PORT x 
014A 625 SOPAO_LOG BL -L1BX,M_RPORT ,FORMAT_PORT 
014A 6 ° <Path #1. Has become working buf CROSSED to Path #0. - REMOTE PORT x 
0152 6 SOPA0_LOG 


PAERROR Error Handlin ing Routine nes 16-SEP-1 1 AX/VMS Macro V04-00 Pa 14 
04-001 ERRECRASHVG, CRARA OGG ON SPEC TTTED 18-Sep-1984 O1;16;40 FORIVER eae ToALcROS maR:2 29° (18, 
154 6 -SBTTL ERRSCRASHVC, an VC ON SPECIFIED 
154 -SBTTL = PATH BLOCK 
182 
g¢ 
154 6 i ; These routines are called to crash an open virtual circuit on 
154 634 ; a specific path. ERRSCRASHVC sets VC failure in progress 
154 635 ; status in the PB and foes a SETCKT closed to the remote port. Return 
154 6 § ; is then taken since the SETCKT response will continue the process of 
: ? , ; cleaning up the broken VC. 
18 639 ; In case the poy kt is a REQID or other datagram type pkt 
136 e79 ; there may be no path block. In this case, return is taken without 
12 ee 3 doing anything. 
0154 $9 3; Inputs: 
0154 644; 
813% 645 ; IPL “Fork IPL 
154 646; R1 -Addr of PB 
0154 647 ; R2 “Addr of msg/dg response 
0154 648; RG -PDT addr 
0154 649; 
0154 650; vC state “open 
0154 651; 
0154 $36 3 
0154 653 ; Outputs: 
0154 654; 
0154 655; RO-R1 -Destroyed 
0154 656 ; Other registers -Preserved; "ab ts not d the msg/dg 
0154 657; pointed to - R2 is not disposed of -- 
0154 658; that is the caller's responsibility 
0154 659 ;- 
0154 660 
0154 661 -ENABL LSB 
0154 066 
0154 663 ERRSCRASHVC:: 
0154 664 
51 05 Bie 665 TSTL R1 ; Got a valid path block? 
34 13 0156 666 BEQL 20$ 3 No, just leav 
52 DD bi2e 667 PUSHL R2 3; Save caller’ #2 
12 Al BI 15A 668 CMPW oeey STATE(R1),- : Is virtual giveutt failure 
8000 8F $128 669 PBSC_VC_FAIL : already tn in progress? 
$f 13 0160 670 BEQL 108 : Branch 
8000 8F BO 0162 671 MOVW #PBSC_VC_FAIL,- 3 oot vc failure in progress 
12 Al 166 676 PBSW_STATE(R1S F this P 
52 54 Al DO 016 7 MOVL PBSL_CLSCKT_DG(R1) ,R2 : Get obs. of SETCKT d9 in PB 
54 Al D4 \9e ere CLRL PBSL-CLSCKT_DG(R1) ; Zero Co, address to show that port 
3 owns 
C9 O16F 676 BISL3 #<PPDSM_RSPA24>!- 3; Tell A. 9 to mark VC closed 
17 677 <PPD$C_SETCKT@16>,- 
OC Al 01190000 8F 17 678 PBSB ORSTATIONCRID 3 to this remote station 
OC A2 17 67 PPD$B_PORT(R2) ; Do SETCKT at top priority 
10 A2 8000 BF 4=3c «(0179 = 680 MOVZWL #PPDSA_CST.PPDSW_MASK(R2S ; to close VC 
14 A204 O17F 681 CLR PD$W_A VAL(R2) ; Get response to reclaim buffer 
01 0 0182 6 § nOVE #PPOSA_DBISPOSE,- 
0B A 184 6 PPD$B_SWFLAG(Re) 3; Ask interrupt serv to notify us 
FE77* 30 186 684 BSBW INTSINS_COMQH 3; Do it 
52 B8EDO 0189 685 10$: POPL Re 3; Restore caller's R2 


05 O18 eH 208: 
18D 8 


RSB 
-DSABL LSB 


18-SEP-1986 81:18:40 


; Return 
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ERRSCRASH_PORT:: 


10$: 


N 
ogging Routines 
NIT PORT CRASH 


-SBTTL 


which might be either a so 


reinitialized. 
which takes care of notifying SYSAPs and cleaning up fhe configuration 
{° The main difference between del 

power failure is that in the crash case, cached 
ackets are not written to the logout area by the port and 


database eventuall 
the port and a rea 


e reclaimed. 
nputs: 

R4 

(SP) 
utputs: 

RO,R1 


Other registers 


- ENABL 


BBSS 


PUSHR 
MOVL 


MOVL 
BICW 
MOVZWL 
DECB 
BGEQ 
MOVZWL 
DSBINT 
BSBW 
ENBINT 
POPR 


RSB 


ERRSCRASH_PORT, 


in 
ERRSPWF 


-PDT addr 


16-SEP-1984 91:16:2 AX/VMS Macro V04-00 
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INIT PORT CRASH 


ERRSCRASH_PORT is called by the driver at fork IPL detecting an error 
tware error or a port hardware or firmware error. 


-Caller'’s PC 


-Destroyed 
-Preserved 
LSB 
#PDTSV_PWF_CLNUP,- Set PWF cleanup in progress 


PDT$wW_CPORT STS(R4),208 
#°M<R2Z_R3,RZ,R5> 
#PA_PMC M ‘MIN, - 

ME (RAS 
POTSL 0cB (R4) ,R5 


YCoSB ERTCNT CRS) 
#SS$_CTRLERR,R1 
UCB$B_DIPL(RS5) 
ERRSPWF _RECOV 
#°M<R2,R3,R4,R5> 


Branch if set already 
Save registers 
Maintenance init the port 


Get UCB addr 

Set unit offline to show init 
in progress 

Assume we have more retries, 
but let SYSAP know not to 
expect cached entries back 

Decr retry count 

Branch if not out of retries 

Else set aux status to tell 
SYSAP’s port won't return 


Set IPL up to device to block 
interr 


berately crashing 
hence may not 
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(11) 


s 
Treat like power tatiure from here on 


Restore IPL to for 
Restore registers 


Return to caller 
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1C1 9-747 
1C1 748 


vOe=001 
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-DSABL LSB 
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v0e-001 ERRSPWF RECOV! NOTIFY eyeare tTH 18-SEp-1obe Or :16:10 EDALVeR ene apabonon mance 2% (18, 
75 LSBTTL ERRSPWF_RECOV, NOTIFY SYSAPS WITH 
"SBITL = CONNECTIONS ON POWER 
"SBTTL = FAILED POR 


; ~ amt abe ‘sx is called by unit initialization on power fai 
; re ry or y port interrupt service on power down or b ERRSCRASH. PORT. 
; ERRSPWF RECOV first checks for packet queues that might be corrupted 

; and for corrupted queues zeros the queue header, thus preventing 

; future attempts to remove entries for the queue and causing bugchecks. 

; ERRSPWF_RECOV then forks to lower IPL to the SCS gymecentaes tee 

; level. “Next, all formative ee blocks on this PD i,e., START 

: handshakes in progress) are looked up and formative PB's and SB's are 

; deallocated to pool. 


; ERRSPWF_RECOV then calls CNFS$LKP_PB_PDT to look up PB's associated with 

; the failed PDT. CNFSLKP_PB_PDT Calls us back as a coroutine for each 
- found. for each PB, Fhe CDT List is searched and, for each open CDT, 

; e SYSAP error address ie called with appropriate status. A 

5 SISCONNECTS issued as a result of error routines being called gene taue 

; the failure process. (See routine ERRSDISC_PWFAIL for more info.) 


; CDT’s in non-open states are handled the same as described in ERRSVCCLOSED_MSG. 


: There is a difference between connection cleanup By ty A vC failure 

3; and connection cleanup following a port failure. In the VC failure case, 

3 the port is still alive. As sysap's Ss with connections on the broken vc 

; are notified and issue disconnects, CDT's are retained in the PB CDT List. 

; They are retained because queue traffic may still be in the port which will 
3; be yon tag ae with appropriate status. The CDT's are cleaned up after the 

3 con _ is disconnected and after the cache clear msg has made it through 

3; the port. 


; If the ve is Sega tne bacause of a port sori yre. the port is dead and 

; no further traffic will be processed. In this case, as sysap's disconnect, 
; CDT's are cleaned up wet fig ts (Implementation note: this logic 

; might be simplified overall by handling the simpler port crash case 

: ti e the more comples vc failure case. The two cases prebabty need to 

; differ only in their dependency on the cache clear msg.) 


; Given the difference in 5 Senet ing a problem occurs if a port crash 

; happens in the midst of a vc (ure. The port crash always results in 
; a call to ERR SPUF RECOV which forks t prtor to processing all the path 

: biscks. Consequently, the code which notifies all sysap’s in the 

; event of a vc ailures is not interrupted by the code in ERRSPUF RECOV 
; which processes PB's. When we arrive at the point of orsioesing each 

; PB, we are in one of two situations if the PB is in VC_FAIL state: 


“ALL COT'sa re in VC_FAIL state also, and a cache clear has 
been issued which we have just cleaned up of one of the queues. 


-Some CDT's are in VC_FAIL. Sysap's have all been notified 
about the rest of the connections, but have not yet disconnected. 


; So, if the PB is sirendy in VC_FAIL state, CDT's in VC FAIL state are 
; closed out after com ing thé pending disconnect calls. If no COT's 
; remain after this, PB (and SB) are also deleted and port seine’ may 


folelelelelelelolelelelelolelelololelelelelelelelelelelelolololeleleleleleleloleleleleleleleloleleololalalalolel alo) 
a th hh 8 oh hh hh SHE 
POOVOBVOVOIOIOOOAOOVOOOOOODOAAAOAOAOIOAAAAAIOAOAOAAAAAIAIAAIAAIOOAOOAOAOOOAOOAOOO 1 
a a kk a ad dd dd dd dD 


PAERROR Error 
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the | 

lik 


he PWR_FAIL 
ike a port 


be attempted. If some CDT’s remain,then place the PB in 
state so that the remaining disconnects behave properly ( 
failure rather than a vc failure.) 


Inputs: 
IPL ~IPL$_POWER, device IPL 
R1 “Aux status to report to SYSAP: 


SS$_POWERFAIL if called by unit init 
folTowing CPU pwr fail recovery; 


SS$_POWERFAIL if called by int service 
on port pwr down; 


SS$_ABORT if called by int service or 
ERRSCRASH_PORT with error necessitating 
reinit of port (buffers cached by port lost); 


SS$_CTRLERR if called by int service or 
ERRSCRASH_PORT with error necessitating 
reinit of port, but no retries are left 
so that the port will remain shutdown 
(buffers cached by port lost). 


R5 -UCB 0 addr 


Port state “Uninitialized/maint; PDT/PQB 
logout area contains a list of 
port cached entries. 


PDT$W_LPORT_STS -PWF_CLNUP set to show powerfail 
cleanup in progress. 
PUP set if called from system 
owerfail recovery to show power up. 
UP clear if called from port interrupt 
on power down to show power not 
recovered yet. 


0.090909 09 09 00 09 C0 0d G0 C9 CD Cd C9 Cd 09 Cd CO Cd Od Od OD Oc OD OD CO Od OD Cd Cd Cd Cd Cd Cd Cd CD CD CD CO CD CO CO CO OD CD CDC CD CSODODOCDOCDOCDOVCD OF 


ee et ek a a od od 
PPADS Ars & Be BS BE EE WNW WINN IONIPININPYINIPYINININY 2 2 OO OO OO SS SK OOO 


fo lelel ele lelelealelalelelelelelelelelelelolelelelelelelealelolelelelelelelelelelelelelelelelelelelelelololololololo) 
WR =O DONA UNE WR 0 OD NAU EWN 0 OO NO UNE WIN 0 OD NAMES WN —OOONOAOUS WN OOon 


(SP) “Return to caller in unit initialization 

or interrupt service. 
Outputs: 

IPL IPL ==> IPL$_SCS and return taken to 
unit init; The unit is set offline 
and registers preserved on return to 
unit init. 

-ENABL LSB 

ERRSPWF_RECOV:: 
10 AA BICW #UCBSM_ONLINE,- ; Set unit offline to show 
64 AS UCBSW_STS(R5) > that it's uninitialized 


54 B086 ¢5 
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2 
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04 
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000001F 8°EF 
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54 0084 C5 
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AAO 


20$: CMPL R3,R2 


0 Cd Cd Cd Cd CD CD GD OD CD CD CD CD GD CD CD C9 CD CD CD 0D CD 
DOOOOOCDWWOWOWW OOOO NNN NNN NNO 
MEW (OOO NOUS WHO O@NOULSWN—OO0E 


30$: BBCC PBSB_RSTATION(R3),- 


wowowowowowownownowvovonndo 
1 
SOWOONOUSWN Oo 


o V04-00 Page 49 
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MOVL UCBSL_PDT(R5) ,R4 ; Get POT addr 

MOVAL PDTSQ-COMQBASE(R4),R3 =: Get addr of 1st command queue hdr 

CLRL R2 3; Zero count of command + rsp queues 
10$: 

BSBW UNLOCK_BADQ ; Unlock and handle bad queue 


ADOL #8, : step 8 next queve hdr 
AOBLEQ #<<PDT$Q_RSPOQ - PDT$Q_COMOBAS >/8>,- 

R ; Branch if more queues to check 
MOVL POTSL MFQHDR(R4) ,R3 


Get addr of free msg queue hdr 


BSBW _~ UNLOC : Check it 
MOVL PDTS$L_BFQHDR(R4) ,R3 ; Get addr of free dg queue hdr 
BSBW UNLOCR_BADQ ; Check it 


MOVL R1,R4 ; Copy aux status to reg preserved 
; that will be reserved over fork 
MOVAB 15$,R ; Address of where to resume after fork 


3 
BRW INI $F ORK Fork... 


Clean up formative path and system blocks on this PDT. From this point on 
we are at fork IPL. 


a Se Ge Ge Ge 


w 
bad 


MOVL UCBSL_PDT(RS) ,R4 
MOVAQ PDT$Q~FORMPB(R4) ,R2 


MOVL (R2) ,R3 


Restore PDT address 

Get addr of formative PB 
Listhead - 

; Get next formative PB 


; Back at Listhead? 


BEQL 50 ; Branc so 

MOVL PBSL_SBLINK(R3) ,RO : Else get formative SB 
BEQL ; Branch if no SB 

JSB G*COMSDRVDEALMEM ; Else deallocate SB to pool 


Turn off known port bit in 


PD TSE _PORTRAPCRG) ,408 bitma 


40$ MOVL ; Copy addr for deallocator 
MOVL (R3) ,R3 ; Get address of next formative PB 
JSB G*COMSDRVDEALMEM ; Deallocate PB to pool 
BRB 20$ : Go for next formative PB 

50$: MOVL ng {Re ; Set formative pathblock 
MOVL R2,4(R2) ; to empty 


Remove all packets from port command queues, response queue, 
free queues, and the logout area. All packets are returned to 
pect except send datagrams which are "lagged ‘return to sysap.' 
sees, gre returned to the SYSAP just as they had gone out 
normally. 


BSBW ERRSCLEANUP_PKT ; Call packet cleanup routine 
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CNFSLKP_PB_PDT 


1:16:25 VAX/VMS Macro v04-00 e 1 
1:16:10 DRIVER. SRCJPAERROR.MAR; 2 ~— (2) 


; Clean up fully open paths and system blocks on this PDT: 


; Look up Ist/next PB 
; Start of cereus tae if PB found: 


Branch if no more PB‘ 


s 
; Is PB already cleaning up a 


ve failure? 
Branch if not 


PBSL_CDTLST-CDTSL_CDTLST(R3) ,RO 


COTSL_CDTLST(RO) ,RO 


90$ 
CDT$W STATE 90), ~ 
#COT$SC_VC_F 


COTSL_CDTLST(RO) 
8 


Rega NORMAL ,RO 
SCSSTLOSE_CDT 


#PBSC_PWR Fal. 
PBSW_STATE(R3) 
PBSL_CDTLST(R3) 
110$7 


#PBSC PWR FAIL 
PBSW_ Eater ta} 
LST(R3 


) 


CNFSREMOVE_PB 
PDT$W_PBCOUNT(R4) 
ERRSINIPORT 


lse set to scan all CDT’s on PB 
Get next CDT 


Branch if no mor 

SYSAP finished vith connection? 
(I.e., disconnect issued?) 

Branch if not 

Save states to next CDT 

Save a 

Put current “cor _— in standard reg 

Set status = succ 

Complete SYSAP's pending disconnect 
call and ype ato 

Retreive PB addre 
and addr of fol lowing CDT 

Process next CDT, if any 


Change PB state to power fail 
recovery/port failure in progress 
ALL CDT’s gone? 


Else done -- A yey CDT's 
will be cleaned up via disconnect calls 


ig PB state to pwr fail 

in progress 
Does this PB have any connections? 
Branch if so 


Else kill of this PB 

Any PB's left on this PDT? 
Branch * so, can't clean up port 
Try port hardware init 

Continue PB search 


Set status info for SYSAP err routine 
Handle all CDT's in List 


Return 
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UNLOCK_BADQ, ZERO CORRUPTED QUEUE HDRS 10-SEP-1984 01:16:10 CDORIVER.SRCJPAERROR.MAR; 2 (13) 
4 978 -SBTTL UNLOCK _BADQ, ZERO CORRUPTED QUEUE HORS 
9 978 ; 
9 358 3; UNLOCK_BADQ tests fhe interlock bit on the queue pointed to by 
9 980 ; R3. IF the queue is locked, it is presumed corrupted and the header 
9 981 ; zeroed so that any entries that should be in the queue are ge 
9 9 ¢ : lost. The interlock bit should never be set in a power fail situation. 
9 983 ; If it is, the auxiliary status in R1 is changed from SS$_POWERFAIL to 
95 «984: $S$_ABORT. If the queue is not locked, then return is taken without 
32 4 5 ; altéring anything -- the queve is purged later by ERRSCLEANUP_PKT. 
95 $87 3 Inputs: 
95 9 3 3 
95 989; BY “Aux status to pass to SYSAPs 
0295 990; R3 “Addr of queue header to check 
0295 991; 
0295 992 ; Outputs: 
0295 993; : 
0295 994; ALL registers “Preserved 
0295 995 ;:- 
0295 99 
0295 997 UNLOCK_BADQ: 
0632 998 
0c 63 =—:00 4 0295 999 BBC #0, (R3),Q_UNLOCKED ; Branch if queue unlocked 
63 C 0299 1000 CLRQ ( 3; Else clear header 
0364 8F 51 #4981 029B 1001 CMPW R1,#SS$_POWERFAIL ; Is this power failure? 
93 12 O2A0 1906 BNEQ Q_UNLOCRED ; Branch if not 
51 c 63¢ C(O ne 100 MOVZWLE 1 #SS$_ABORT,R1 ; Else change status to show 
8 AS 1004 3 SYSAPs that pkts are lost 
AS 1005 
O2A5 1006 Q_UNLOCKED: 
02A5 1007 
05 O2A5 1008 RSB 3; Return 
02A6 1009 
02A6 1010 
02A6 1011 -DSABL LSB 
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PAERROR 
v04-001 


51 DD 
28 ASB 
09 
05 3 
FD4F* 3 
111 
53 
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8E 
FD42" 
00000000' 
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ogging Routines 16-SEP-1984 01:16:25 VAX/VMS Macro v04-00 
ROCESS DISCONNECT CALL 18-3¢ 6-498 1:16:10 CDORIVER.SRCJPAERROR.MAR; 2 
-SBTTL ERRSDISC_PWFAIL, PROCESS DISCONNECT CALL 
-SBTTL = FOR CD7 ON POWER 
-SBTTL = FAILED PORT 


ERRSDISC PWFAIL is called by FPCSDCONNECT when the SYSAP issues 
a DISCONNECT for a connection associated with a power failed port. 


; (Path block state = PBSC_PWR_FAIL.) In this case the local 


port is nonfunctional and action is to deallocate CDTs as the 


; are DISCONNECTed after purging out the command queues of any Sen's 
; the SYSAP may have done since being notified at its error entry. 


; If this is the Last CDT on this path block, the path block (and 
; system block) is removed and an attempt made to reinit the 
; port hardware. 


re 


PAD AAAAMVIT ES BBB BEE EE BANANA POPOPOPONOPOPONND 2 SS 


ee ee ee ee ed dd dd ed od od td = od dd 


SSSSSSSSSE AAA RARER RRR RRO OOOCCCOOOCOSOCOCCSSSS 


OOO NIA ANEW 3 OS OD NIA UE WIN SO OO NAME WIN SO OD NAME WO OD NOU EWN OOONOUIS Ww 


AAPA AOAQO 


Be Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Be Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Sete 
+ 


Inputs: 
IPL “Fork IPL 
RS “Agar _ BT being DISCONNECTed 
RG “Addr of PDT 
COTSW_STATE “Any except CLOSED or VC_FAIL 
(SP) “Addr of return to FPCSDCONNECT 
Outputs: 
x Sones registers aeaneteel 
-ENABL LSB 
ERRSDISC_PWFAIL:: 
PUSHL Save PB addr 


R1 
CMPW © CDT$W_STATE(R3),- 
#CDT$C_CON_REC 


BNEQ 108 
BSBW © SCSS$FREE_LISTEN 
BRB 208 
10$:  PUSHL = R3 
BSBW ERRSCLEANUP_PKT 
POPL = R3 
BSBW SCSSDEAL_SCSREC 
J58 G6*SCSSDEALL_CDT 
208: POPL R3 
TSTL —PBSL_CDTLST(R3) 
BNEG 30 
BSBW CNFSREMOVE_PB 


Sete te Ge 


Is this a listener with a 

connect in hand? 
Branch if not | 2 : 
Else just put it back to Listening 
Join common check for no more CDT's 


Save CDT addr 

Purge out the command queues 
again in case SYSAP error routine 
did any more SENDs 

Restore CDT addr 

Deallocate CDT’s SCS recv buffer 

Deallocate CDT 


Retrieve PB addr in R3 
Any CDOT's left on PB? 

Branch if so 

Else deallocate PB/SB 
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VOreoot fAlLeD PORT ee 1o-SEp-j9be O110;40 PORIVER.caeipatonos man:2 P29 (98, 
0112 C4 CF 1970 TSTW + a eaten 3; Any PB's Left on this PDT? 
3 D3. 1071 BNEQ : Branch + some left 
007D : te BSBw ERRSINIPORT 3; Try to init oort hardware now 
50 01 . D8 1074 308: MOVZWL #SSS$_NORMAL ,RO ; Set to return success to SYSAP 
DB 1075 RSB : 
DC 1976 
O2DC 107 -DSABL LSB 
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T CLEAN Spek PACKETS QUEUED 18-3 -SEP-19 t Bt: 1:16: :% DRIVER.SRCJPAERROR .MAR; 2 
-SBTTL ERRSCLEANUP_PKT CLEAN UP PACKETS QUEUED TO 
-SBTTL = PORT AND IN LOGOUT AREA 


ERRSCLEANUP_PKT calls FLUSH_Q to remove and dispose of pechete currentty 
on each of the port queues. It hen extracts a acket addres 

recorded in the logout area and calls ERRSDISP_ENTRY to dispose. of the 
entry. The rule for disposing of packets is to pode. all Pas kets 

to pool except send oe flagged as ‘return to sysap." These 

are returned to the SYSA 


Inputs: 

R4 -PDT addr 
Outputs: 

RO-R3 -Destroyed 


SSUME PDTS$Q_COMQBASE EQ PDT$Q_COMQL 
SSUME PDT$Q-COMQL+8 EQ PDT$Q_COMQH 
SSUME db ae he EQ PDT$Q_COMQ 
SSUME PDT$Q_COMQ2+8 EQ PDT$Q_COMQ 
SSUME PDT$Q_COMQ5+8 Q PDT$Q—-RSPQ 
-ENABL LSB 
ERRSCLEANUP_PKT:: 
MOVAL PDT$Q_COMQBASE(R4),R1 dr of 1st_command queue 
MOVL  #<<PDT$Q_RSPQ - PDTSO_ comasases/8 + 1>,R3 
; Get count of * command/rsp queues 
108: BSBB FLUSH_Q : Purge next queue of all entries 
ADOL #8, 1 : Step to next queue to flush 
SOBGTR R3,10$ : gay if more queues 
MOVL  POTSL_MFQHDR(R4),R1 ; Get addr of msg f free queue header 
BSBB FLUSH_Q :; Purge all entr 
MOVL PDTSL_DFQHDR(R4) ,R1 ; Get addr of nog iree queue header 
BSBB FLUSH_Q > Pu urge “ ¢ ries 
MOVAL PDTSL-DQELOGOUT(R4),R3 ; Get base Hr togout area 
MOVL #<<PDTS$C_PALENGTH - PDTSL _DOELOGOUTS/4> 
;"Get count of elmts in logout area 
208: MOVL (R3)+,R2 ; Get addr of next entry 
CMPL R2,4- : Port record anything here? 
BEQL 3 : Branch if not 
SBW ERRSDISP_ENTRY Else dispose of entry 
MCOML #0,-4(R3) : Reset entry just processed 
30$: SOBGTR R1,20$ ; Branch if more entries in logout area 
RSB 3; Return 
-DSABL LSB 
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FLUSH_Q R MOVE ANB °D 1 ePOSt OF 18-3¢ 6-382 94:48:98 DRIVER. SRCJPAERROR.MAR; 2 ” (93) 
-SBTTL FLUSH_Q REMOVE AND DISPOSE OF 
. Ll - ALL QUEUVED ENTRIES 
-SBTTL ERRSDISP_ENTRY DISPOSE OF A SINGLE ENTRY 


3+ 
: FLUSH_Q removes and processes all entries from a specified port queue. 


: ERRSDISP_ENTRY processes a removed entry. ALL packets are returned to 
3 pees except send datagrams flagged ‘return to ey ae These are 
; handled exactly as if they had gone out successfully. 


WAN NINWINAAAIAIANI AWWW 


a a 3 ts st 


FATALQ: 
BUGCHECK CIPORT,NONFATAL 


Should never get here since 
queue lock cleared by UNLOCK_BADQ 
Nonfatal bugcheck 


i 
E 
sg 
11 § 
9 1140 
9 1141 
9 1108 
9 114 
9 1144 
9 17465 
BE 
9 1148 ¢ Inputs: 
9 1150: IPL “Fork IPL 
9 1151; R1 “Addr of queue header (FLUSH_Q) 
2 1126 : R2 “Pkt addr (ERRSDISP_ENTRY) 
O38 V3 ; Outputs: 
319 1156: RO -Destroyed 
baig Viet 3 Re “a “Destroyed (FLUSH_Q) 
3 er registers -Preser 
O33 1158 ; iat 
0319 1161 -ENABL LSB 
0319 1196 
Be HEE ruse 
0319 1165 SQRETRY REMQHI (R1),R2,- ; Remove next entry from 
0319 1196 RROR=F ATALQ 3; _queuve head 
04 1D 0328 116 BVS 1 ; Branch if no more entries 
03 10 O32D 1168 BSBB ERRSDISP_ENTRY : Else dispose of entry 
e811 3 . 1169 BRB FLUSH_Q ; Go for another entry 
05 0331 1171 108: RSB 3 Ret 
0332 1178 geet 
ge 1 
3s a ERRSDISP_ENTRY:: 
00 €1 Q3 1177 BBC #PPDSV_RSP,- ; Anybody expecting pkt? 
OF OF AZ 4 1178 PPD$B_FLAGS(R2),208  : Branch if not” 
OE ag 91 z 14 CMPB at, Mad, ; Was it a send datagram? 
08 12 1181 BNEQ : Branch if not 
2E 8 11 ¢ PUSHR #*M<R1,R2,R3,R5> ; Save registers 
FCBE 11 BSBW —s- INTSD1$P_SENDDG : Else handle as interrupt 
2E BA 1184 POPR #*M<R1,R2,R3,R5> : Restore destroyed registers 
5 i 5 RSB 3; Return 
FCB8" 30 11 5 20S: BSBW INTSDEAL_PKT ; Return to pool 
0 1188 RSB 3; Return 
1189 
1190 
1191 
1136 
119 


OT et ek ee ek he ek ta ha 
SOOO OOMMEMNS 


in 
TR 
11 
11 
11 
119 
119 
119 


5 
} 
5 
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If survive bugcheck, clear queue 
header 
Clear return from grrer call 


; Return from FLUSH, 


=1 
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-SBTTL ERRSINIPORT, CALL PORT HARDWARE INIT 


g% 
: If port has power now, call port initialization routine in PAINIT. 


3 Inputs: 
: RG -PDT address 
: IPL -IPL$_SCS 
; Outputs: 
: RO-R3 “Destroyed 
; Other registers -Preserved 
-DSABL LSB 
ERRSINIPORT:: 


BICW #PDTSM_PWF_CLNUP,- Show pouee fail cleanup 


01 
0110 C4 


PDT$w_CPORT_STS(R4) book eeping done 
E1 BBC #PDTSV_PUP,=- Has port got power now? 
1¢ 0110 C4 PDT$W_CPORT_STS(R4),20$ : Branch if not 
— oo oF MOVQ Save PDT addr and R5{ 


D R4,-(SP) 
55 00DC cs D0 MOVL  PDT$L_UCBO(R4) RS Get UCB addr for init 


WAWWA AAAI 3S BS 3 BB OSOOSSSSSS 
DNA EWN CO VONAUEWN (OV ONOUSWN OC DONOMNE WN 


BBS #UCBS0_ONLINE,- If controller-unit already 

OC 64 AS UCBSW_STS(R5),10$ initialized, branch 

54 0064 C4 00 MOVL POTSL_CNF(R4) ,R4 Get config register add 

01 dO MOVL #PA_PAC_M_MIN,- 
04 A4 PA_PMC(R4) and disable device interrupts 

FC87" 30 BSBW INTSPORT Call port initialization 

54 8E& 7D 10$: mMOVa (SP)+,R4 ; Restore our registers 
05 208: RSB ; Return 


et Ss et as eS Se Se Ss et 


PROPOPIPOPIPTNINININININININPYNINYININININYI|PINYINIPIPIPINIPINPININIPININININININYD 


| 

| 

r | 

Place port in un-initialized state 

-DSABL LSB 
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ECORD 1348:% 


l 
C PORT LOCAL STORE 10-SEP-1984 DRIVER. SRCJPAERROR .MAR; 2 


7D -SBTTL ERRSBUGCHECK, RECORD PORT LOCAL STORE 
7D ° Ll - IN MEMORY 
7D -SBTTL ERRSBUGCHECKNF, RECORD LOCAL STORE CONDITIONALLY 
4 -SBTTL = IF NONFATAL BUGCHECKS ARE FATAL 
7D 3+ 
7D 3 This routine copies the port local store (device registers, VC 
7D ; descriptor table, transalation cache, work space, etc.) over the 
4s : microcode in pool so that this info will be available in a dump. 
7D : Inputs: 
: R4 -PDT addr 
: Outputs: 
: ALL registers -Preserved 


ASSUME <*xX1000> LE PA_C_WCSSIZ*6 
-ENABL LSB 
ERRSBUGCHECKNF:: 


BBS #EXESV FATAL BUG,- 
G*EXESGL _DEFFLAGS,- 


ERRSBUG K 
SDEBUGCHECK #ERRS$V_DEB_BUGNF 


00000000°8F €0 


Branch if nonfatal bugchecks 
ical «| i 


are set to be fatal via 
SYSGEN parameter 


POPIPINIPYINININIPYAIPININPINIPINININIPININININININININININININININININININININININININININININ = oS 


a a ee ee a ee ee ee me a ee ee ee ee a a a eed ada | LK te 
COO9O9G9 G9 G9 G9 II NSD DS DDD DDD DDS I EE ES ES EE 


AEN 9 OD NA UNE WIN 9 OD NAME WN = 0 OD NOU EWN O OONOUS WN 


| 
Page 29 | 
oe 93) | 


If flag enabled, do a fatal bugcheck 
anyway regardless of SYSGEN param 


05 RSB Else return doing nothing 
ERRSBUGCHECK: : 
OF 6B PUSHR #*M<RO,R1,R2,R3> ; Save caller's registers : 
52 0064 C4 00 MOVL PDTSL_CNF (R45 ,R2 ; Get addr of base of device registers 
53 _00000000'GF 00 A 108: MOVL G*SCS$GL_MCADR,R3 ; Get addr of ucode in pool 
51 0400 8F 3C 78 MOVZWL #<*X100074>,R1 : Get size of device register space 
83 82 »o0 309 20$: MOVL (R2)+,(R3)+ ; Copy next long wd of local store 
FA 51 £5 038 SOBGTR ‘ ; Branch if more to copy 
OF BA 0386 POPR #*M<RO,R1,R2,R3> 
05 0388 RSB 
3B9 
3B9 -DSABL LSB 


—— ees - ee 


4 


00000007 038) ERRSV_DEB_URC == 7 ; Unrecognized local command -- 
tet : normally crashes port 
00000008 BD ERR$V_DEB_ABO == 8 ; Aborted command (port disabled) -- 


normally crashes port 


00000009 O36D 


D 
BD 
_J00000A Ne 
BD 


00000008 038) 


ERRSV_DEB_NPUPD == 9 me pose + SNDMSG + unrecognized 


type -- normally crashes port 


ERRSV_DEB_VCUPD ==10 


VC closed + SNDMSG + unrecognized 
PPD type -- normally crashes port 


ERR$V_DEB_INVOP ==11 Invalid opcode in response -- 


normally crashes port 
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v04-001 ERRSDEBUGCHECE, DEBUG BuGcHECK ENABLE F 1 mi iaet Pi 1:16:10 CORIVER.SRCJPAERROR.MAR; 2 . (19) ve 
44 ! 89 -SBTTL ERRSDEBUGCHECK, DEBUG BUGCHECK ENABLE FLAGS 
BY 1290 ;+ 
B9 1291 ; For the ourpose of tracing intermittant problems that we normally 
0389 1 36 ; attempt recawery from, a number of CIPORT bugchecks have been added. 
8 B9 1295 ; Each apenees is enabled or disabled by a eorereny ary F tags 
8 44 : 3¢ ; may be turned on or off by a quick patch to location ERRSDEBUGCHECK. 
0389 1 38 
0389 1297 ; 
0 44 } a8 ; Flags are stored in the following Longword: 
5 B9 1300 
0389 1301 ERRSDEBUGCHECK:: 
0389 1306 
00000000 0389 130 LONG “x0 ; The default is all bugchecks 
03BD 1304 ; are disabled, and recovery enabled 
038D 1305 
03BD 13 
Q38D 1307 ; , 
03BD 1308 ; Flag definitions by bit number: 
O3BD 1310 | 
00000000 O038D 1311 ERRSV_DEB_INVBN == 0 ; Invalid buffer name during blk 
b300 1; 3; «fer -- normally crashes port 
00000001 0380 1314 ERRSV_DEB_BLV == 1 ; Local buffer length violation -- 
p308 3 3 normally crashes port 
00000002 O38D 1317 ERRSV_DEB_ACCV == 2 ; Access violation during blk 
Sot 3 ; xfer -- normally crashes port 
00000003 038D 1320 ERR$V_DEB_PSV == 3 ; Packet size violation -- 
tet 3 ; normally crashes port 
00000005 038D 135235 ERR$V_DEB_URP == 5 ; Unrecognized packet -- 
b300 3 ; normally logged and discarded 
00000006 038D 1; ERRSV_DEB_INVDP == 6 : Invalid destination port number -- 
03BD 1 : normally crashes port 
038D 13 
13 
1 
1 
1 
13 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0000000C ERR$V_DEB_UNSTS ==12 Undefined status subtype in response -- 


2 empty. 
; Normally, port crashes. 
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v04-001 ER REDEBUGCH ECR, dE PBUG Wuecuecn’e ENABLE F 1 sett 7 Bt; 18:4 DRIVER.SRCJPAERROR.MAR; 2 (19) : v¢ 
a ] re 3 normally crashes port 
0000000D BD 1 79 ERRSV_DEB_NOSTS ==13 ; peerage’ soubmnes ton of status, 
BD 1348 3 opcode type -- 
BD 1349 3 normat ly” crashes port 
ar 0000000E BD 1350 ERRSV_DEB_XCTER ==14 i; XCT_ID_ sequence number check fails 
= : 23 ; “- & BATHS /CNFREC. Normally crashes 
0000000F 8 BD 1 38 ERRSV_DEB_SCERR ==15 3 source connection ID check fails -- 
BD 1354 3 nermetty crashes pert - MSGSNT 
038D 1 2? ; and is ignored on DGSNT 
00000010 8 BD 1 § ERRSV_DEB_NOPB ==16 ; Rec'd connect request with no PB -- 
° 4 } 2p 3 normally crashes port 
00000011 038D 13559 ERRSV_DEB_CNFER ==17 ; Entered VC cleanup with no PB -- 
tty 1369 ; normally crashes port 
00000012 038D 1 6¢ ERRS$SV_DEB_ILKQ ==18 ; Interlock queue failure -- 
B300 : o7 3 normally crashes port | 
00000013 038D 1365 ERRSV_DEB_NEPQ ==19 ; Reiniting port with non empty 
03BD 1366 3; command/response queues -- 
0380 1367 3: normally logged and recovered 
00000014 038D 1368 ERR$V_DEB_BUGNF ==20 ; Nonfatal bugcheck being logged -- 
tt 136° ; normally continues 
00000015 038D 1371 ERRSV_DEB_PSRX ==21 ; Undefined bits in PSR set -- 
oot 1376 : normally crashes port 
00000016 038D 1374 ERRS$V_DEB_OSEQ ==22 ; Port received response with 
0380 1375 3 sequence number mismatch. This 
0380 1376 : is either a legitimate discard 
038D 1377 ; due to duplicate, or a sequence 
03BD 1378 3 mumber error. Software normally 
03BD 1379 3 crashes the vc. 
038D 1380 
00000017 038D 1381 ERRS$V_DEB_VCDCL ==23 ; Port received sequenced message 
03B8D 1386 ; with VCD status set to closed. 
03BD 138 : Software normally crashes the. 
03BD 1384 . 88s 
03BD 1385 
00000018 038D 1386 ERRSV_DEB_MFQE ==24 : Port detected msg free queue 
038D nt t 
1389 
1390 


PAERROR Error Handling & Logging Routines 16-SEP-1984 01:16:25 VAX/VMS Macro v04-00 Page 32 
v04-001 ELOGSINIT_SWERR, toe’so TWARE ERROR 1 ~$eE 1 382 1:16:10 CDRIVER.SRCIJPAERROR.MAR;2 . 36). 
BD 38 -SBTTL ELOGSINIT_SWERR, LOG SOFTWARE ERROR 
BD -SBTTL = ENCOUNTERED DURIN 
BD -SBTTL = PORT INITIALIZATION 
BD -SBTTL ELOGSUCODE_NORD, LOG MICROCODE NO 
BD -SBTTL = PROPERLY READ BACK 
BD -SBTTL = ERROR 
BD -SBTTL ELOGSHARDWARE, LOG HARDWARE ERROR 
BD ~SBTTL ELOGSQ_INTRLOCK, LOG QUEUE INTERLOCK 
+4 -SBTTL = FAILURE 
038D s+ 
8 BD ; These routines log those errors which use the device attention, EMBSC_DA, 
BD 3 slainn ag mae | format. There are three such error types: 
0380 ; - Software errors detected during port initialization. ’ 
038D - Microcode failed to read-back as loaded (this is logged as a special 
038D type hardware error). 
0380 - CPU or port ucode not at adequate rev level. 
0380 - Hardware error (typical to but more extensive than those found 
0380 in more standard 1/0 devices). 
b300 - Failures to obtain access to a queue because of its interlock. 


After some entry specific processing, the body of this routine calls OPAO_LOG 
to broadcast the error to OPAO, if indicated, and then uses ERLSDEVICEATTN 
to log the error. ERLSDEVICEATIN will call ELOGSREGDUMP which will actually 
copy the appropriate information into the error log. 


ELOGSINIT_SWERR: 


Inputs: 
RO - Error subtype code in bits 0 through 7 | 
Sign bit set indicates that the error will crash port 
Sign bit not set indicates that it will not 
R5 - Address of device UCB 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eS 
CNOA UE WR CO OO NOAU EWN 0 ODN UNE WIND 0 OONAU SW | C ODA NEW OOONAUSE 


03BD 
038D 
038D ELOGSUCODE_NORD: 
03BD 
03B8D Inputs: 
038D RO - Correct microcode value ; 
038D R4 - Base virtua! address of Cl port registers 
0380 R5 - Address of device UCB 
0380 
$38 
D ELOGSCPU_REV: 
$3BD Inputs: 
Pp : : : 
Bee0 R1 =Syaten ID Register which contains CPU rev level 
8 4 R5 -UCB addr 
O3ep ELOGSUCODE_ERR, ELOGSUCODE_WARN: 
38D Inputs: be 
D R2 “Addr of IDREC pkt containing pers ucode rev 
D level at offset PPDSL_RPORT_REV 
8 4 R5 “UCB addr 
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; ELOGSHARDWARE : 


Inputs: 
RO - Error subtype code in bits 0 through 7 
Sign dit set indicates that the error will crash port 
Sign bit not set indicates that it will not 
RG - Base virtual address of CI port registers 
R5 - Address of device UC 
ELOGSQ_INTRLOCK: 
Inputs: 
8 RO - Error subtype code in bits 0 through 7 
38 Sigr bit set indicates that the error will crash port 
za bit not set indicates that it will not 
R4 - Address of PDT 


ALL ROUTINES: 


Outputs: 
RO is destroyed. All other registers are preserved. An entry is made 
- oe gre log. The existance of this error might have been broadcast 
Oo. ° 


SPECIAL NOTES: 
re er operation of this routine, and ELOGSREGDUMP, depends upon 


RLSDEVICEATIN passing R4 and R5 unaltered to ELOGSREGDUMP. As of this 
routines writing, this was the case. 


+ ’ 
; The age bee are various values related to or controlling the size of a 
; device attention error log entry for this device. 


0000000 PORT_REGS LOGGED = 6 ; Number of port registers logged 
0000000 NUM_EX_LORGWORDS = 3 ; Number of extra longwords logged 
TOTAL_CONGWORDS = 2 - ; Longword count + error type code 
+ PORT_REGS LOGGED - ; + port registers 
00000008 + NUM_EX_LONGWORDS 3 + extra Longwords 
ELOGSK_BYTES == <TOTAL_LONGWORDS * 4> - ; This is the number of bytes in a 
0000007A + EMBSC_DV_REGSAV ; device attention error log entry 
; from the CI as entered in the DDT. 
«MACRO ZERO_EXTRA_LONGWORDS 
ASSUME NUM_EX_LONGWORDS EQ 3 
CLRQ - (SP) 
CLRL -(SP) 
-ENDM = ZERO_EXTRA_LONGWORDS 
0000003€ DA_MASK = “M<R1,R2,R3,R4,R5> 


SOOCOCOCOOCOOOOCOCOOCOCOOOCOOOSOOSOSOOCOOOCOCOCOCOCSCO COCO OCOOOOOOOOOOOOOOoOO o> 


ws Ww AAA AI ws 

DOOD OD OOOO OOD OD OD ODO DODD OD OD OD ODO DODO OOOO 

ee Le en ee eee ee ee ES S| 
ee ee ee Se ee SP ee SP Se oe ot oe ot ot ot ot ot ot ot ot ot ot ot ot et et te 
DODO000000 0000 0 O090000 0000 09 09 09 09 09 INI NINI NIN NINA AAA AAAAAOAUUU NUM 
DEAN 20 CONAN EWWN 2 OOD NOAU EWN SO OOD NOAUE WN OC OB NAUEWN OO OONL NEW OO 


CUVTVVOVOOTVOVTVUVCVVTVTVCVCUVUOUVTVUVUVUVTVTVUUTVTVTVTVCVVCVCVCVCVVCTCTCTC0"C0€8 
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v04-001 - FAILURE ° — 1 tae Yi OF: 18:% YORIVER. SREIPAERROR-MAR: 2 . o> v 
+4 ! § ELOGSINIT_SWERR:: ; Software error during initialization 
Ha BD 1 § PUSHR #DA_MASK ; Save registers. 
4 04 BF 1 CLRL RG ; Zero port base VA implying don't log 
C1 1510 3 pers registers. 
C1 #1511 ZERO_EXTRA_LONGWORDS ; No extra longword to log here. 
cs 1 \¢ ASSUME PAERSK_ET_INSW EQ 0 
43 94 cS) «(151 CLRB -(SP) ; Build error type part of error code. 
7 11 ef 1313 BRB ELOGSSLOG_DA ; Branch to common code. 
C9 1218 
C 13) ELOGSUCODE _NORD:: 
3 6BB «(03C9 1319 PUSHR #DA_MASK ; Save registers. 
03¢B 1 0 ASSUME NUM_EX_LONGWORDS EQ 3 
50 DD 8 CB «1521 PUSHL RO ; Ex. lw. 3 = correct ucode value. 
, ee a cD 615 g CLRQ -(SP) : Init ex. lw. 1 & 2 to zero. | 
55 dO 8 CF 15 MOVL SP, R5 ; Save current stack pointer. ; | 
D2 1524 SPRICTINI - ; Protect the following device register 
0302 1525 “10S, #MCHKSM_NEXM : references from machine checks. 
04 A5 18 AG DO tt 15 $ MOVL PA_MDATR(R4) ,4TR5) 3 Ex. lw. 2 = wrong ucode value. | 
65 114 A4 DO O3E3S 15 MOVL PA_MADR(R4) , (RS) ; Ex. lw. 1 = failing ucode address. 
O3E7 1528 SPRICTEND TO$ : If check occurs, leave zero values(s). 
55 40 AE 8 O3E8 1529 MOVL 324+424(SP),RS ; Restore provieusty saved UCB addr. 
50 8000 8F 2 Q3EC 1530 CVTWL  &#<PAERSK_ES_UCDW ! *x8000>, - ; Plant error subtype 
QO3F1 133) RO ; w/ crash port code. 
2D «611 «O3F1 «15 ¢ BRB LOG_AS_HARDWARE ; Branch to common hardware errer 
O3F3 153 ; logging code. 
O3F3 1534 | 
tH 1eg? ELOGSCPU_REV:: | 
3—€ BB O3F 1339 PUSHR  #DA_MASK ; Save registers 
03F5 1338 ASSUME NUM-EX_LONGWORDS EQ 3 
51 DD O3F5 1539 PUSHL R11 ; Ist extra longwd gets CPU SID 
8007 BF 32 O3F7 1540 CVTWL © #<PAERSK_ES_CPUREV ! *x8000>,- 
50 O3FB 1541 ; Set error subtype, port shutting down | 
16 «111 pace 1366 BRB REV_ERROR ; Join common rev error logging 
SFE 1544 
sre 1346 ELOGSUCODE_ERR:: 
E O3SFE 154 PUSHR #DA_MASK ; Save registers 
8006 Hi 3 0200 1548 CVTWL © #<PRERSK_ES_REVER ! *x8000>,- . 
30 Be Oe 1549 R ; Set error subtype, port shuts down 
0 11 Be03 1339 BRB PORT_UCODE ; Join common port rev error logging 
407 1382 
rt 4 133? ELOGSUCODE _WARN: : 
3— «6B 209 1555 PUSHR #DA_MASK ; Save registers 
50 08 9A 0409 1328 MOVZBL #PAERSK_ES_REVCA,RO ; Set error subtype, non fatal to port 
¢ ; 1388 PORT_UCODE 
40C 155 - 
1¢ A2 OD i 1369 Posie PPDST PORT REV CRD) . Ist extra longwd gets port rev level 
3 x 
00B8 (5 4 6€ DO O40F 1562 MOVL (SP) ,OCB$T_OPAO_TEMP(RS) ; Save rev level to format in opa0 msg 


vet 


7E 60 
1 


55. O0DC C4 
54 24 AS 


54 2C B4 
7— 02 


5 
6E— _ 80 é 
7 
5 


5 
50 06 AE 8000 8F 
51 FBB8 CF 
ge 
55 O00000A0 8F 


54 =SOSE 
00000000 ° GF 
SE 14 ae 


Error HandLlin 
‘ E 


OOOCGOOOCOOCSOSDOOCOCOCOO YF 


Sk ek ee eh ee ek ek ed ee cd 


™~ 
IAPOPONOPONOPOPOPUfUf 3 2 oes 


FOO NMI SP FP POOL LESS C 


aa a a a ek a at st = = 3 8 8 9 = oo oo = = = = = = So 2 3 ss 2 to 
DDRDPDPEDPDP PDP P PAD DEDEDE PPPS TSSOP 
= —§ ~OODDOOOOOSOO OOO 00000 O09 0909 09 09 09 09 0909 09 SI NIN NINES NNO AAA AAO 
WN 9 ODIO NE WIP $$ © OD NA UE WIN @ 9 OD NAME WIR @ O OO NONE WP  O OONOUS WW 
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~SEP 


REV_ERROR: 
CLRQ 0 =(SP) 
CLRL RG 
BRB  —_ LOG_AS_HARDWARE 
ELOGSHARDWARE: : 
PUSHR #DA_M 


ZERO_EXTRA_ CONGUORDS 


LOG_AS_HARDWARE : 
MOVB #PAERSK_ET Hw, 
B ELOGS$LOG_BA 


ELOGSINTRLOCK: : 


MOVL PDTst “UEBOCRE) 


MOVL UCBSL-CRB(R5) 
ASSUME JoBst a) 


EQ 
CRBSC INTD*VECSL _1pB(R4s 
3; No extra longword to log here. 
; Build error type part of error code. 
; Branch to common code. 


novi, 
ZERO_EXTRA_LONGWO 


MOVE” #PRERSK eT TLeK, -(SP) 


BRB ELOGSSLOG. BA 


CLN_BYTES = <NUM_EX_LONGWORDS * 4> + 8 


ELOGSSLOG_DA: 
TSTL RO 
BGEG —-:10$ 
BISB  #PAERSM_CPRT, 
10$:  MOVB RO, -(SP) 


= (SP) 
MOVL R4, -(SP) 


CLRL RO 
BICwW3 Hast 6(SP) ,RO 
MOVAB Boks RS AO_LOG_TAB,R1 


Ww  =OPA 
SUBL2 PUCBSt RSGFKBLK.RS 


MOVL SP, R4 
JSB G*ERLSDEVICEA 
MOVAB CLN_BYTES(SP) 
POPR #DATMASK 


1:16:25 VAX/VMS Macro v04- i) 
1:16:10 CDRIVER.SR RCIP aE RROR MAR: 2 aa 


2nd and 3rd jongude not us 

Zero port CNF addr to pf» Logging 
device registers 

Join common HW type error logging 


; Save registers. 
; No extra longword to log here. 


; Build error type part of error code. 
; Branch to common code. 


; Save registers. 


Obtain UCB address. 


; Get base VA of port rogiezers via 


UCB ==> CRB ==> IDB 
R4 


; Number of bytes to clean from stack 


; Is the port going to be crashed? 
; Branch if no. Otherwise, 

; set the right bit in error code. 
; Add error subtype to error code. 
; Longword align the stack. 

; Save VA of port registers. 


Clear register 

Retrieve error subtype and type 
Retrieve device agtention .OPAO table 
Move UCB address into proper register 
Broadcast error to _OPAO indicated 
Compute UCB address” 


Set pointer needed by ELOGSREGDUMP. 
Perform actual error logging. 

Clean saved information from stack. 
Restore saved registers 

Return to caller. 
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v04-001 ELOGSREGDUMP.® DEVICE ATTENTION 18-35 6-1 960 oF 185% YORIVER. SREIPAERROR MAR: 2 - 3) 
47 -SBTTL ELOGSREGDUMP, DEVICE ATTENTION 
-SBTTL = REGISTER DUMP ROUTINE 


59 
; This routine is called by ERLSDEVICEATIN (which is called by ELOGS$L0G_DA) 
; to copy the appropriate device registers into an error log entry. 


Inputs: 
Starting address in error log buffer to be filled 
Base virtual address of CI port registers 

ller word of zeros 
Error code type crash port, subtype fields 
NUM_EX_LONGW D§ of additional data to be logged 
Address of the device UCB 


Outputs: 
CI port ceg'eter values and the additional data are copied to the 
Location(s potases to by RO. RO, R1 and R2 are destroyed. If for 
any reason the CI port registers are inaccessable, zeros will be 
logged for thier values. 


pono loleleleloleolelelelelelolelelelalelealeololo) 
take del tl ek deka ek ek ee tee ee ek ee ee ee ee 
SNS 
PAEAPEAPAAAPAAAAA AAA AAA AAO 


End protected code. 
Return to ERLSDEVICEATIN. 


ee ee ee ee ee ee ee ee Lee SS | 
PPR QAAAPAAAA AAA AAAAAAAAAAAAAAAAHAAAAAAOOAAAAOAOAOAAOO 
AAAAUMIMNMNNMN MI BBB EB EEE BWW ononononofnononung 2 
WR SO OONAUS WN O OONOAU EWN 0 ODNOAUE WN OC OONOAUFSWNOODNOAUM 


Bee ELOGSREGDUMP: : 
52 50 00 0476 MOVL RO, R2 3 Copy buffer address to a safe place. 
82 0A 9A 0479 MOVZBL #<fOTAL_LONGWORDS - 1>, ~ ; Insert count of longword 
047C (R2)+ ; “‘registers’’ to be logged. 
8 06 AS =6BO «(047C MOVW 6(R4), (R2)+ : Insert error retry counts, type. 
82 0080 ¢5 B80 0480 MOVW UCBSB_ERTCNT(RS5S), (R2)+ ; subtype, and crash port information 
0485 ASSUME PORT_REGS_LOGGED EQ 6 =; to form PADRIVER error code. 
62 7C 0485 CLRQ (R2) ; lero places where Cl port registers 
08 > 7C 0487 CLRQ 8(R2) 3; may be copied. 
10 A 7C Q48A CLRQ 16(R2) 
ot 3 ASSUME NUM_EX_LONGWORDS EQ 3 
18 A208 AS =7D «(0480 ova 8(R4), q3 {Re} ; Copy extra longwords into 
20 A210 A400 $435 MOVL 16(R4), 32(R2) ; into error lo enter. 7 
51 4 D0 049 MOVL (R4), R1 ; Obtain base VA of Cl port registers. 
31 13 OQ49A BEQL 100$ : If zero, don't log registers. P 
49C SPRICTINI - 3; Protect the following device register 
49C B*10$, MCHKSM_NEXM ; references from machine checks. 
62. 61 DO O4AC MOVL  PA_CNF (RI), (Re) : Plant configuration register. 
04 A2 04 Al 00 O4AF MOVL PA_PMC(R1),  4(R2) ; Plant maintenance control/status reg. 
08 A $300 C1 4 4B4 MOVL PA_PS(R1) th ) ; Plant port status register. 
CA 938 C1 00 O4BA MOVL  PATPFAR(RI), 12(Re) ; Plant failing address register. 
10 A 093C C1 DO VL PA_PESR(R1), 16(R2) ; Plant port error status register. 
4A 0940 Ci 00 PA (R1), 20(R2) ; Plant port parameter register. 


SR 
AEN 
oTAeo 


MOVL “PPR 
SPRICTEND TOS 
RSB 


So 
w 
oo 
oe 


100$: 
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v06-001 ELOGSPACKET 906 PREKE RELATED 1 =$Fe=1382 84:48:43 YORIVER. SREIPAERROR MAR: 2 . 35) 

-SBTTL ELOGSPACKET, LOG PACKET RELATED 

.SBTTL = ERROR, GENERAL CASE 

-SBTTL ELOGSCABLES, LOG CABLE STATUS 

.SBTITL - CHNAGE, GENERAL CASE 

-SBTTL ELOGSPTH_ST_CHG LOG PATH STATUS 

-SBTTL = HAN 

.SBTTL ELOGSCBL_X_CHG LOG CABLES CROSSED OR 

.SBITL = NOT CROSSED STATUS 

.SBITL = CHANGE 

-SBTTL ELOGSERROR_DG LOG ERROR LOG DATAGRAM 


These routines log those errors which use the Logged message, EMBSC_LM, 

error-log-entry format. ALL such errors result from detection of an 

exceptional condition in a data pashet. The error log entry produced by 

these routines will include upto 7 bytes of the packet which signaled the 

exceptional condition starting with the 12th byte of the packet. | 
| 


There is one exceptional case, and that is when what is being logged is the 
refusal of the local system to open ° a virtual circuit to a remote system 
because the information provided by the remote system conflicts with 
nformation that is already present within the system-wide configuration 
data base. In such a case what is logged instead of a data packet is the 
remote system node name, the known system nodename, and the known system ID. 


Before calling ERLSLOGMESSAGE to Log 
OPAO_LOG to log the condition to _OPAO, if such a broadcast is warrented. 


the error condition, these routines call | 

As a matter of convenience, there are four entry points to the routine, one 
| 

| 

| 


9 94 9 99 9 999 9999999999999 9973 


Fk aa ta eh al tek, take tak, tak, el, tak ek teh, take tek te eh tah taka tl a ak eh eh ee ak dak ale tke dak dake ake ake tak tk tk ke ak ek ek tk ek ek ek ek ee ee et eee 


for each of the following conditions: 

- A path status change (good to bad, or bad to good) 

- A cables crossed/uncrossed status change 

- ALL other errors detected with in a packet 

- An error log datagram, specified by the PPD type = 5 (PPDS$C_ELOG) 
These are used for sending an error log message to a system without 
necosser sty having a connection to the system over which to send 

n 


BDOODOOOO00 0000 OOO O00 00090009 69 090909 09 SIN NINN NINN NINO AOA O 
=O OOD NAME WIN ODD NIA E WIN © OD NAME WIN @ 9 OD NO NEW  O ODNOU SW OOONOu 


OOOOCOOOOOoOOSCoOSooO 


ek as ek a at ts 8 = = = = tt = = 4 8 2 2 9 2 sd 2 SS a SS td Ss a ss © —  —s 2s © 2 ss 1 . 
NNN NINA A AAAAAAAA AAPA AAO AAAAAOASAOOSO OOOO AOAAS 
Sete Ge Sr Se Se Se Se Sse Ge Ge Fe Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Ge Ge Se Se Sse Ge Fe Se Sete 


CK 
cE 
cE 
cE 
CE 
cE 
cE 
cE 
cE 
cE 
cE 
CE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
CE 
cE 
CE 
cE 
cE 
cE 
cE 
cE 
cE 
CE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
cE 
CE 
CE 


error log info. 
ELOGSPTH_ST_CHG: | 
Inputs: : 
RO - Address of previous path status information byte. 
0 In this byte: 
0 PBSM_CUR_PS eq 8 ==> path was broken | 
0 PBSM_CUR_PS ne 0 ==> path was good 
1 The address is assumed to be one of PB$B_PO_STS(R1) 
7 3 or PB$B_P1_STS(R1). This information is used to 
12 ; determine which path is being described. | 
13; R1 - PB address 
14 ; R2 - Packet address 
: : R4 - PDT address 
17; 
: ; ELOGSCBL_X_CHG: 
§ : Inputs: 
: R1 - 0 ==> cables currently crossed 


PAERROR 
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ELOGSERROR_DG LO LOG DATAGRAM EP-19 1:16:10 CORIVER.SRCJPAERROR.MAR; 2 


3 1 ==> cables currently uncrossed 
Re - Packet address 

2 - PB address 

R4 - PDT address 


; ELOGSPACKET: and ELOGSCABLES: 


Inputs: 
RO - Error subtype code in bits 0 through 7 
Sign bit set indicates that the error will crash port 
Sign bit not_set indicates that it will not 
PB address (ELOGSPACKET only) 
Packet address (zero if none exists) 
PDT address 
Known system SB address 
(ELOGSPACKET and subtype = PAERSK_ES_RSCKS only) 


R1 
R2 
R4 
RS 


ELOGSERROR_DG: 


Inputs: 
R “Error log packet address 
R -PB address 
RS -PDT address 

ALL ROUTINES: 

Outputs: 


ALL other registers are preserved. An entry is made in the error log. 
The existance of this error might have been broadcast to _OPAO. 


sail Bete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Se Ses 
t 


0000003F M_MASK = “M<RO,R1,R2,R3,R4,R5> 
00000014 SAVEDRS = 4*5 
ELOGSPTH_ST_CHG:: ; Path status change 
3F PUSHR #LM_MASK ; Save registers. 
ASSUME PAERSK_ES_0GB EQ 0 
55 04 CLRL R ; Assume it went from good to bad. 
03 60 €8 BLBS (RO), 108 :; Branch if old status was good. 
55 02 9A MOVZBL #PAERSK_ES_0BG, R5 ; Else, it went from bad to good. 
10$: ; Determine which path was effected by subtracting the address of the 


; path 0 status byte from the address of the status byte passed to us. 
; Theft add the gesentenses or bad-to-good subtype code base to form 

; the error sub yee code. 

ASSUME PB$B_P1 STS EQ PBS$B PO STS+1 

ASSUME PAERSK_ES_1GB EQ PAERSR_ES_0GB+1 


DWONOAUE WN $$ OS ODONAULS WN $$ O OD NAUE WIN O ODNAUEWIN CO ODNOAOUE wT 
wv 


PRR RRR RE RRR EPR EERE ERP EPR RRR RR RRR RRR RRR RRR RRR PRR RPP PPR PPR EE 
NNN NNN AAA AAA AAA AMMA BS EB WIAA AAAI IIR 


PPK LN BO DWODWWOWOOVVOOM MMM MMMM MMMM MMMmMMmMmMmmmmmmmmmmmmmrmrmrncnevevery 
ee ee a me ee ee ee ee a ee a a a ee ee ee ee ee a ee a a fe ed dd 


Se ee ie ie Sie Bit Bite ie pimp i te et ee ee ie ee ee 


COOOOCOSCOCOSOOOOSOOSOSOSOOOOOSOOOSOOOSOOOSOOSOOOCOOOOOSOOOOOOOOOO: 


0 ASSUME PAERSK"ES"1BG EQ PAERSK_ES OBG+1 
1 MOVAB pees PO_STS(R1), R3 ; Get path 0 status byte address. 
D ; SUBL R35, R ; Subtract from passed address. 
D ADDL R5, R 3; Add error subtype code base. 
E : BRB LOG_AS_ CHANGE ; Branch to common state change code. 
E 
: i ELOGSCBL_X_CHG:: ; Cables crossed/uncrossed change 


aon 


Error Handling & 
ELOGSERROR_DG LO 


Tl VE VUETICTICTICTICTICTiCT: 


BEEP PPP PPP PPP PPE EEE 


BRESLIN DW OMWIMIMWbWWIMWbWANa 9 SS PAA ES 


et dt st st st 2 ds dd ts 2 ts sn ts tn 4 td ts ts tt 


00909000900 09 0 69 Co G9 Gd 09 G9 09 G9 09 G9 09 9 C9 09 C9 C909 C8 SINISE NS SS 
RPRPMININIID 2 2 9 2 PF FOOOGDOOOOOOOOO0O000 00 OOOO C0 00 CoCD CD CDCDCO~ 


MEN @ OOD NAUE WIN HO OD NAME WN SO ODNAUE WN (OOOO wirv—0O0 


VYNS > 40asenennneuws CSCC REE i i i i Ds De | 


HALOS POWDWOOOWDOOwwroceo7 


be ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty tytyd 99499 95 


Peas ah Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab db db dh db ah ab ah ab ah ab ah al al 


MOVL 
LOG_AS_ CHANGE : 
MOVZBL 


ELOGSCABLES: : 


ELOGSPACKET:: 


PUSKR 
SUBL 


ELOGSPACKET1:: 


5$ 
10$: 
BRB 


-DSABL 


ELOGSERROR_DG: : 


PUSHR 
MOVZBL 


MOVL 
MOVZBL 
BRB 


K 15 
Loggin Routine 
G ERROR LOG DAT 


: MOVZBL 
MO 


$s + 
AGRAM 10-SEP-19 
fe 
Posh COR_CBL EQ 1 
WPAERSK_ES_UC, R1, RO 
R3, R1 


#PAERSK_ET_CBL, R5 
ELOGS$LOG_CM 


LSB 
#LM_MASK 
#PAERSK_ET_CBL, RS 


R2 

10$ 
CNFSLKP_PB_MSG 
10$ 


#LM_MASK 
PDTSL_MSGHDRSZ(R4) .R2 


#LM_MASK 
#PAERSK_ET_PKT, R5 
(SP), R 
ELOGS$LOG_LM 

LSB 


#LM_MASK 
#PAERSK_ES_ERRDG,RO 


#PAERSK_ET_PKT,RS 
ELOGS$LOG_CM™ 


P=1984 01:16: 
ad 9 1:19:42 AX/VMS Mac 


MASK 
RSK ES CU EQ PAERSK_E 


ro V04-00 
DRIVER. SRC JPAERROR.MAR; 2 


Save registers. 


§_uc+1 


3; Form shenge 
; Move PB address to right place. 


crossing subtype. 


; Set cable status change error type. 
; Branch to common code. 


; Cables change of state, general case 


Save registers. 


Set cable status change error type. 


Assume no PB 

Is there a message? 

Branch if no es 
Attempt to find path block. 
Join common code 


; Packet error, general case 


; Save registers. 
; Back the pointer up 


; Packet error, general case 


; Save registers. 

; Set packet error type. 
; Restore caller's error subtype. 
; Go to common code. 


; Error log datagram to log 


; Save registers 

; Get error subtype 

; Copy PB address 

; Get error type 

; Join common code to set up 


error log entry and log it 


3, 


| 
| 
| 
| 
| 


—$$____— — _ - + 
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n o Vv04-00 Page 
R.DG LOG LOG DATAGRAM 10-SEP=- DRIVER. SRCIJPAE 


6 | 
RROR.MAR; 2 (23). 
i+ | 
; At this point the registers have the following values: | 
RO - ecrer subtype code in bits 0 through 7 


ign bit set indicates that the error will crash port 
Sign bit not set indicates that it will not 


R1 - =0 ==> no + exists 

Otherwise R1 = PB address 
R2 - Packet address (zero if none exists) 
R4 - POT address 
RS - Error type code 


The following code will build the logged avanege buffer in a UCB extension, 
and cause it to be placed in the error log. It will also call OPAO_LOG 
to broadcast the error to _OPAO if such a broadcast is required. 


FF WWWIAAI NA rronoru 


Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Ge Ge Ge Se Se Se Se Sete 


} 7 
ase 13 
i 
35 1838 
5 1834 
1 
3 
358 1838 
0356 8c] | 
05 1366 Synchronization on use of the UCB extension area for this purpose is | 
03 1367 accomplished via the UCBSM_ERLOGIP bit in UCB$W_STS. 
5 1845 ; Because some of the entities in a logged message have odd sizes, the 
05 1846 ; following code sometimes saves instructions by incorrectly writing longer 
05 1847 ; than necessary entities, and later overwriting the high order portions of 
b2 1308 the written data with the correct information. 
0526 1850 
0526 1851 
82 ° 1836 ELOGSS$LOG_LM: 
53 O00DC C4 00 0526 1854 MOVL PDOTSL_UCBO(R4), R3 ; Get the UCB address. 
03 64 A353 02 €3 0528 1855 BBCS #UCBSV_ERLOGIP, - ; Flag error logging in progress and 
83 0 1856 UCBSW_STS(R3), 5$ ; branch if none previously in progress 
164 31 O5 : 1857 BRW 90$ ; Branch if error log is in progress. 
0000 ¢3 50 90 b2¢ 1858 5$ MOVB RO, UCBSB_LMEST(R3) ; Plant error subtype value. 
0001 CS 55 90 0538 1859 MOVB R5, UCBSB_LMET(R3) ; Plant error type value. 
50 05 Base 1860 TSTL RO i; Is the port going to be crashed? 
06 18 OSSF 1861 BGEQ : Granch if no. Otherwise, set flag 
0001 C3 80 8F 88 0541 1906 BISB #PAERSM_CPRT YBSO_LAETSR ) ; bit in error code byte. 
00D2 C3 0080 C3 BO 0547 1863 10S: MOVW UCB$B_ERTC T(R3), = ; Plant error retry and max retry 
054E 1864 UCBSB-LMERTCNT (R$) 3 counts. 
50 0082 C3 01 Al O54E 1865 ADDWS #1, UCBSW_ERRCNT(R3), RO ; Adjust unincremented error counter 
0004 ¢3 50) 3¢ 0594 1866 MOVZWL RO, UCBSW"LMERRCNT(RS)  ; plant it, and zero word following it. 
559 186 ASSUME UCBSS_LSADDR EQ 6 | 
0559 1868 ASSUME UCBS$S_LSI EQ 6 
0559 130) ASSUME UCBSS_RSADDR €EQ 6 
223 iS 9 ASSUME UC EQ 6 
559 187 ASSUME SBSS_SYSTEMID EQ 6 i 
559 1 % SPRTICTINI - ; Protect the following device register 
8226 187 B°20$, MCHKSM_NEXM 3: reference from machine checks. 
0008 ¢3 010C D4 ~ = «#o 44 1874 MOVL @PDTSL_PPR(R4), = ; Get the local station address 
5 0 1875 UCBSN _CSADDR(RS) : directly from the port. 
570 187 SPRICTEND 20$ 3: End protected code. 
0c 50 #€8 0571 187 BLBS e ; Branch if no machine check occured. 
0008 3 1 CE 0574 187 MNEGL #1, UCBSN_LSADDR(R3) ; If couldn't get local station 
OODC C 1 ar 579 187 MNEGW #1, UCBSN_LSADDR+4(R3) ; address, put all ones in its place. 
..=% fk 1880 BRB 3 ; Then, continue with prpcess ing. 
OODA C3 =~D4 (05 1881 g38: CLRL UCBSN_LSADDR+2(R3) : got address, clear high order bits. 
OODE C3 O00000000'GF DO 0584 1 § 0$: MOVL G*SCSSGB_SYSTEMID, = ; Get local system id from system 
58D 1 UCBSN_LSTD(R3) : global address. 


ee 4 
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00000004'GF B80 1884 MOVW G*SCS$G6B_SYSTEMID+4,- ; Copy h.o. 2 bytes of system id 
OOES C3 258 1883 UCBSN_LSTD+4(R3) on . . | 
OEA C 7C 0596 1 § CLRQ UCBSN_RSID(R3) ; Assume remote system id won't be 
238 } 3 found and zero it (plus a Little). 
SoA 5 ASSUME UCBSN_RSADDR+6 EQ UCBSN_RSID | 
59A 1890 ASSUME UCBSN-RSID+6 EQ UCBSL-CICMD 
238 : 4 ASSUME SBSS_NODENAME £0 16 
| 
00D0 C3 «Bl «=2(O59A «(1 38 CMPW UCBSB_LMEST(R3),- , Logging known-remote system conflict? 
4008 ef 59— 1894 #<PAERSK_ET_PKT@8 + PAERSK_ES_RSCKS> 
2s 7 5A1 1895 BNEQ $ ; Bratch if not 
55 14 AE OD 5A3 1 38 MOVL SAVEDRS(SP) RS ; Otherwise restore known system SB addr 
52 30 Ai 00 QSA7? 189 MOVL PBSL_SBLINK(R1),R2 ; Retrieve remote system SB address 
50 O00&4 C3 9E OSAB 1898 MOVAB UCBSA_RSADDR(R3) ,RO ; Position to remote system address 
0580 1899 : field within logged msg working buffer 
80 OC a 4 beer 1300 te eee ; Store remote station address 
80 18 A2 DO 0586 1386 MOVL SBSB_SYSTEMID(R2),(RO)+ ; Store remote system ID | 
80 1C A2 BO 058A 190 MOVW § SBSB-SYSTEMID+4(R2), (RO) 
80 18.45 D0 058g 1904 MOVL  SBSB-SYSTEMID(R5) ,(RO)+ ; Store known system ID | 
80 1C AS BO 05c2 1905 MOVW  SBSB-SYSTEMID+4(R5),(RO)+ 
80 44 AS D O05C6 1906 MOVQ SBST_NODENAME (R5) (RO)+ ; Store known system nodename 
80 4C AS 7D O5CA 1907 MOVQ = SBST“NODENAME+8(R5),(RO)+ 
80 44 A 7D OSCE 1908 MOVQ SBST_NODENAME(R2) ,(RO)+ ; store remote system nodename 
80 4C A2 7D 05D2 1909 MOVQ = SBST-NODENAME+8(R2) , (RO)+ 
5 DD 0506 1910 PUSH R ; Save UCB address 
00 63 OO 2C O5D8 1911 MOVC #0,(R3),#0,- ; Clear remainder of logged msg buffer 
60 22 050C 1918 #<UCBSK_LMPKTBYTS-30>, (RO 
5D si 3208 a BRB 66$ 3; Go finish logged message 
5 DS O5EO 1915 32$: TSTL R : Is there a message packet? 
1 12 O5E2 1916 BNEQ 35$ 3; Branch if there is one. 
00E4 C3 O01 CE O5SE4 1917 MNEGL #1, UCBSN_RSADDR(R3) ; Else, can't get remote station 
OOE8 C3 1 AE QO5SE9 1918 MNEGW #1, UCBSN_RSADDR+4(R3) ; address, so put all ones in its place. 
3 DD OSEE 1919 PUSH ; Save UCB address. 
0048 8F 00 $0 3 2c B2r9 1920 mMOVC #0, (R3), #0, - :; Zero all of logged message buffer 
OSFA 1921 #<UCBSK_LMPKTBYTS+8>, - ; in which message packet would 
SFA 19 ¢ UCBSL_CICMD(R3) ; normally be put. 
41 11 OQOSFA 19 BRB : Go finish logged message. 
O0E4 C3 OC A2 QA OSFC 1924 358: MOVZBL PPDSB_PORT(R2), - ; Get remote station address from 
0602 1925 UCBSN~RSADDR(R3) > packet. 
00E8 C3 B4 06 19 § CLRW UCBSN_RSADDR+4 (R3) ; Zero extend it to 48 bits. 
J DS 06 19 TSTL R1 ; Do we have a PB address? 
1 13 0608 1928 BEQL 50$ : Branch if no and none exists. 
50 30 Ai oD 60A 1929 MOVL PBSL_SBLINK(R1), RO ; Get SB address from PB. 
oc 1 60E 1950 BEQL ; Branch if no SB available 
OO0EA C3 18 AO DO 0610 1931 MOVL SB$B_SYSTEMID(RO), - 3; Copy system id from system block 
616 1386 UCBSA_RSID(R3) 3 to the log entry. | 
OOEE C3 1C AO BO 0616 19 MOVW SB$B_SYSTEMID+4(RO), - 
61C 1934 UCBSA_RS1D+4(R3) 
1¢ 1935 50$: PUSHL R : Save UCB address. 
50 OBA 1€ 19 CVTWL 4 PPDSW_SIZE(R2),RO ; Get possible neg offset to net hdr 
0 2 } % 4 19 AOVA PPD$SW_SIZE(R2)CROJ,RO : — dd wt ye r 
3: Else get addr of net heade 
50 ; 0 sad wt} hi 629 19 ; ADDW PPDSU SIZE CRS) CCROS “RO 3; «and get size stored in net header 
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E 194 3: _- size of net header | 
133 55$: SUBW3 #PPDSB_PORT, RO, R5 3; Compute maximum cones of message 
1308 ; based upon allocated pool region. 
ooBc BF 00 OC Ae 0 33 tH 194 MOVCS RS, PPDSB_PORT(R2), - ; Move all interesting parts of the 
63D 1944 #0, #<UCBSK_ERRDGBYTS+8>, = ; message packet to the logged 
63D 1945 UcBSL _CICMDTRS) : nessane utter. ” 
53 8EDO 0630 1308 66$: POPL ; Restore UCB addres | 
50 . 9A 0640 194 MOVZBL ven BSC ' 3 Get “By message. — code. 
51 0068 8F 3¢ 064 1948 MOVZWL #UCBSK “tnGur Z, RI i Gets ze of logged 
0000 C3 Bi «(0648 )=—1949 CMPW uCB$B gnest ),- Is mo” Short) loseed msg? 
4007 8F ‘ ober 1930 ib #<PAERSK_ET arts . rac es’ TERRD 06 | 
ran so 
51 O0F4 (3 3¢ Pe) 1326 MOVZWL UCBSW_MSGBYTCNT(R3),R1 i Get a copy of the PPD Length from | 
e saved messa 
51 26 co bee 1984 ADDL  #<UCBSW_MSGPPDTYP - ucos_ LMESTS RI - | 
0659 1955 ;"Add in’ other parts of error log entry 
GOOOOODC BF 3) o} Boze 1328 ys a) autos ERRDGSIZ 3 is ty nace = we will log? | 
; Branc no 
51 000000DC BF 00 dese 1338 MOVL #UCBSK_ERRDGSIZ,R1 : Else put in max errlog entry size | 
7E 50 7D 0669 1960 80S: mova  RO,-(SP : Save registers | 
51 FA3A CF 9E 066C 1961 MOVA LM “PAO. LOG_TAB,R1 ; Retrieve logged message _OPAO table 
00008000 8F CB 0671 13e8 BICL #*%000080007- 3 Retrieve error subtype and type and 
50 0000 C3 0677 196 UCB$B_LMEST(R3),RO 3; clearing port crash indicating bit 
1D 10 0678 1964 BSBB OPA 3; Log the error to _OPAO if indicated 
53 55 QOO000A0 8F C3 067D 1965 SUBL3 #UCBSL_MSGFKBLK,R5,.R3  ; Compute UCB address 
50 8& 7D set 1398 MOVQ (SP)+,RO ; Restore registers 
52. 0000 C3 9E Oe88 1968 MOVAB UCBSB cilbae R2 : oe starting address of message. 
00000000'GF 16 068D 1969 JSB GERL SLOG SSAG gg the message. 
64 AS 04 AA 0693 1970 BICW #UCBSM ERLOGIP, UCBSW_ sTécRs Clear err. log in progress flag. 
BA 0697 1971 908: POPR #LM_MASK ; Restore saved registers. 
05 0699 1972 RSB ; Return to caller. 


It is assummed that the logged message buffer portion of the UCB has 
been initialized for all error conditions which use the logged 
or error log entry format. The contents of device registers 
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ooh gre -SBTTL OPAO_LOG, -OPAO ERROR LOGGING ROUTINE 
69A 378 i+ 
69A 1977 ; This routine first determines whether or not _OPAO error logging should be 
69A 3f8 ; done. Then, if logging to _OPAO is indicated, this routine saves what optional 
69A 1979 ; formatting information wilT be needed and creates a fork process, using the 
69A 1980 ; port UCB'S message fork block, to handle the cerpect ine and broadcasting of 
69A 1 ; the appropriate error log message. If this fork block is currently in use, 
69A ¢ 3; presumably for the broadcasting of an earlier error log message, the 
69A 3; assumption is made that this earlier message is the more important one, and 
pooh : ; the error condition currently being processed is not logged to _OPAQ. 
069A § ; Error logging to _OPAO will be attempted whenever the system device, which 
Q69A ; is assummed to be the same as the error Logging device, is currently 
069A 8 ; unavailable. Such error logging will also always be done for certain error 
been H 3; conditions, such as fatal port initialization errors. 
069A 1 ; Inputs: 
069A ¢ 3 
069A 3 IPL “Device or Fork IPL 
069A 4; RO “High word 0, Error Subtype, Error Type 
069A 5 3 R1 “Address of an _OPAO Error Logging Table 
069A $ 3 R3 “Address of UCB 

o 3 

9 § 

0; 


Oo 

oa 

> 
PROPIPIPIPIMIPINIPMOPINPININOPINPINOPIPINPINPIPININONYUR) — ee 
SOOCOOCOCOCOC COCO COOSCOSCOOSOOSCOOCOCOOWOWOOOOVOOVOOOOOWOOOWOWOO 
PINMINININS 2 OO | “COCO OCOCOCOCSCOC OOOO OOOOO OMWWMocc co cD cD cD: 


069A 1 are always obtained via the PDT. 
069A ¢ 
069A ; Outputs: 
069A 4 
5 RO-R1, R3-R4 -Destroyed 
069A 6 R5 ; “Address of UCB message fork block 
069A 7? Other registers -Preserved 
069A 8 
069A 9 
069A 0 -ENABL LSB 
069A 1 OPAO_LOG: ; 
55 OOA0 C3’ 9% aepe ¢ MOVAB UCBSL_MSGFKBLK(R3),R5 ; Retrieve fork block address into R5 
069F 4; 
069F 5 ; Find the entry in the appropriate _OPAO error log table that corresponds 
544 § 3; to the error condition currently being processed. 
069F 8° 
61 50 B61 O69 9 10$: CMPW RO, (R1) ; Entry for current error condition? 
09 13 06A2 0 BEQL 20$ ; Branch if so 
61 BS Q6A4 1 TSTW (R1) ; Have we reached the end of the table? 
2C 619 06A6 ¢ BLSS 30$ ; Don't perform logging if we have 
51 08 CO Q6A8 ADDL2 #OPAO_LOG_SIZE,R1 ; Else, position to next table entry 
Fe 11 06 4 BRB 10$ : Continue search 
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6AD § 
6AD 3 
6AD 8 ; The current error condition will be logged to _OPAO under the following 
4 8 3 ; circumstances: 
6AD 8 1; 1. It is indicated that such error conditions are always to be logged. 
6AD ¢ 3 ¢: The system disk has not yet been mounted. 
6AD 20335 ; 3. The system disk is currently being mounted. 
6AD 2034 ; 4. The system disk is undergoing mount verification. ; 
O6AD 2035; 5. bur ing mount verification it is discovered that the system disk drive 
O6AD 20 § ; contains the wrong volume. 
O6AD 83 3 g. The system disk has timed out. 
Rene b38 ; 7. The local system is participating in a cluster and quorum has been lost. 
Q6AD 2040 ; An implicit assumption is that the system and error logging disk are one and 
Q6AD 2041 ; the same. 
O6AD ots ; 
Q6AD 204 
2302 Al 00 €0 pone Bee 20$: BBS #V_ALWAYS,CFLAGS(R1),40$; Go log if this error is always logged 
50 00000000'GF 00 O68 046 MOVL G*EXESGL_SYSUCB,RO ; Retrieve UCB for system disk 
34 AO D5 06B9 2047 TSTL UCB$L_VCB(RO) ; Has the system disk been mounted? 
17 «613 «Q6BC 2048 BEQL 40$ ; Go log if it hasn't 
B3 Q6BE 2049 BITW #UCBSM_MOUNTING! - ; Is system disk in one of these states? 
O6B8F sees UCBSM_QRONGVOL ! = : —— being mounted? 
QO6BF 2051 UCBSM_MNTVERIP!- ; Wrong volume in device? 
068F $028 UCB$M_TIMOUT,- ; Mount verification in progress? 
64 AO 240 8F 06BF 205 UCBSW~STS(ROS ; Timed out? 
OF 12 pote Bee BNEQ 40$ ; Go log if it is 
50 Q00000000°GF 00 06C6 2056 MOVL * eaten mentees ; Retrieve cluster block | 
05 13 06CD 2057 BEQL 0$ ; No need to log if there isn't one | 
1¢ £1 Q6CF 2058 BBC #CLUB$V_QUORUM,- ; Go log if the system is participating 
01 1¢ AO 0601 3059 CLUBSL_FLAGS(RO),40$ =; im a cluster which has lost quorum 
05 0604 2060 30$: RSB ; Return 
02 €2 06D5 2061 40$: BBSS #UCB_V_MSGFKLOCK,- : Indicate msg fork block now in use 
FA 68 AS 0607 $06¢ UCBSQ_BeEvSTS(R35),30$ =; If the fork block already in use, 
Q6DA 206 ; assume prior error condition is more 
O6DA 2064 ; important & skip logging of this one 
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Ooo 


A decision has been made to tog the error condition to _OPAO. First, store 
within the UCB any optional information which will be required to format the 
_OPAO error Log message. Finally setup and create a fork process to format 
and broadcast the a “gets: error log message to _OPAO. The fork process is 


created using the UCB’s message fork block: 


09 02 Al 0 #V_RPORT, ae 
C (R3) 


BBC C Remote port number required? 
MOVZBL UCBSN_RSADDR 


6DA § 
6DA 6 
6DA oe 
6DA 8 
O6DA 0 
6DA 71 
6DA th: 
6DA 207 
6DA 2074 
4 QO6DA 2075 3 
OOE4 A OQ6DF g76 c - ; If so, then save the remote port 
00B8 C O6E 3 07 YCBST_OPAO_TEMP(R3) ; number in UCB, and go setup and 
11 bees 44 BRB $ ; create the fork process 
09 02 Al =O —1 Sees 080 BBC #V_PKT,CFLAGS(R1),60$ ; CI packet information required? 
OOF O DO O6ED 2081 MOVL UCBSL_CICMD(R3),- ; If so, then save the CI packet 
0088 ¢ O6F 1 oes | tea malate ; information in the UCB, and go setup 
11 Bere +H BRB 0$ 3; and create the fork process 
2F 02 Al E1 O6F6 2085 BBC #V_REGS,CFLAGS(R1),70$ ; Branch if device regs not required 
54 0084 DO O6FB 2086 MOVL UCBS$L_PDT(R3) ,R4 ; Retrieve PDT address 
008 7C 0700 2087 CLRQ UCBST_OPAO_TEMP(R3) ; Clear UCB locations where the device 
00Cc0 D4 0704 2088 CLRL UCBST_OPAO_TEMP+8(R3) ; registers will be save 
0708 2089 SPRICTINI = ; Protect device register references 
0708 2090 B“°65$ ,#MCHKSM_NEXM ; from machine checks ; 
O0E4 DO 0714 2091 MOVL @PDTSL_CNF(R4S,= ; Store contents of configuration 
00B8 (3 0718 09¢ UCB$T_OPAO_TEMP(R3) > register 
QOE8 D4 DO 0718 209 MOVL aPDTSC_PMCTR4),- ; Store contents of port maintenance 
00BC C3 O71F 2094 UCBST_OPAO_TEMP+4(R3) =; control register 
OOEC D4 =s«O00 Brse 095 MOVL aPDT$C_PS(R4) ,- ; Store contents of port status register 
00CO C3 0726 2096 UCBS$T_OPAO_TEMP+8(R3) 
aH 644 SPRICTEND 65$ : If check occurs, leave zero values(s) 
54. 51 = 0 «072A «2099 708: MOVL R1,R4 ; Save table entry for error in R4 
00000739°EF 9F O7¢8 100 PUSHAB OPAO_LOG FORK : Fork process routine address 
00000000'GF 17 07 101 JMP G*EXESF ORK 3; Fork ... 
0739 2102 
0739 2103 -DSABL LSB 
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-SBTTL OPAO_LOG_FORK, OPAO ERROR LOGGING 
-SBTTL = FORK PROCESS ROUTINE 


+ 

This is the routine which assumes control, within the context of a fork 
process, when an error log message is to be broadcast to OPAO. This routine 
formats and broadcasts the _OPAO error log message as folTows: 


1. Optionally format the error Log message utilizing information contained 
within the _OPAO error log table entry for this specific error condition. 
coe peerees o* the appropriate table entry maybe found within R4& on input 

o the routine. 

2. Release the message fork block by cvonr rey the interlock bit. This step 
must be delayed until after the optional formatting is completed because 
the optional formatting makes use of UCB locations which we can not allow 
to be overwritten until we are through with them. 

- Copy the device controller letter into the error log message. 


Sete Se Se Se Ge Se Ge Se Se Ge Se Se Se Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge 


in 
"FORK 
739 2105 
739 «21 $ 
739 «21 
739 21 $ 
739 «210 
739 «2110 
739 «2111 
0739 11 
0739 211 
0739 2114 
0739 2115 
7 4 118 
739 «211 
0739 i 
0739 211 
BS B18: 
0739 133 4. Broadcast the _OPAO error log message. ‘ 
0739 21 5. Broadcast a second message indicating that the port will be taken offline 
0739 2124 if this is indicated for this error condition (Fatal port initialization 
errors only). 
0739 \$2 ly) 
0739 2126 
Ore \¢f Inputs: 
0739 133 R3 “Address of UCB 
ore 130 R “Address ” goad Error, Logging Table Entry 
tes 13 “Address of Message For oc 
0739 133 It is assummed that the three longwords bogtan ine at UCBST_OPAO_TEMP 
0739 2134 have been initialized with whatever values will be required to Complete 
Bae 132 any optional formatting of the current _OPAO error log message. 
SE Igy | ououe 
0739 2139 RO-R5 “Destroyed 
ther registers -Preserve 
0739 2140 Oth i P d 
gs gtd) 
0739 128 -ENABL LSB 
0739 2144 OPAO_LOG_FORK: 
50 24 A3 DO 0739 2145 MOVL  §UCBSL_CRB(R3),RO ; Retrieve CRB address 
0 AO DD O73D 2146 PUSHL CRBSL_INTD+- ; Retrieve and save address of 
VECSL_IN L 3 controller initialization routine 
154 17 EC$L_INITIAL(RO) Ller initiali i 
52 06 A4 32 it 149 CvTW MSG(R4) ,R2 ; Retrieve offset to counted message 
52 6€ CO ort 139 ADDL (SP) ,R2 ; Compute address of counted message 
50 O04 A46 3C arte 13 MOVZWL FORMAT(R4),RO ; Retrieve offset to forastt ing routine 
05 13 0748 215 BEQL 0$ ; Branch if no special formatting 
50 6€ C0 B7e8 154 ADDL2 (SP),RO ; Else compute formatting routine addr 
60 16 733 133 JSB (RO) :; Perform special formatting 
04 8A $98 139 10$: BICB2 #uUCB_M peer nt ocr.” ; Mark message fork block as being 
68 A3 Pee 138 UCBSO_BEVSTS(R3) ; no longer in use 
51 82 9A £38 160 MOVZBL (R2)+,R1 ; Retrieve size and address of message 
6— D4 075 161 CLRL (SP) ; Assume will not broadcast “9ffline 
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03 02 A4 4 E1 075 16 BB #V OFFLINE, CFLAGS(R4), vy Branch if this is true 
6€ 1 00 6 197 MOVL #1, (SP) lse this second msg will be broadcast 
54 8 AS 00 076 165 20$: MOVL UCBS$L_DDB(R3) ,R4 ; Get DDB address into R4 
QGO00000'GF 9€ pot 196 MOVAB G*OPASUCBO,RS ; Get _OPAO UCB address into R5 
17 AG) 90 re 198 MOVB DOBST_NAME+3(R4) ,- 5. es device controller letter from 
06 A2 7 18 CTRLR~ NAME (R2) : ASCII message 
QOO00000'GF 16 ae A JSB G* 1OCSBROADCAST 3 Send messege to terminal driver 
Be DS 0779 176 TSTL (SP)+ : Should the yerkiee, msg be broadcast? 
es % 378 17 BNEQ 30$ : Go do so if it should 
0 1443 1 RSB ; Else return 
a 2 9E 1443 178 30$: MOVA INISMSG_OFFL,R2 ; Retrieve counted message address 
51 2 9A 078 17 MOVZBL (R2)+ 3 goteteve message size and address 
17 AG 90 ft 178 MOVB DDBST “NAME+3(R4), - s te device controller letter from 
06 A2 788 2179 CTRLR~ NAME (R2) 3 ASCII message 
00000000'GF 17 Bree 180 JMP G* 1OCSBROADCAST 3 tt wenseee to terminal driver and 
079 181 3 return 
0793 2182 DSABL LSB 
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79 184 -SBTTL _OPAO ERROR LOGGING FORMATTING ROUTINES 
79 185 -SBTTL = ERRSCNV_HEX_DEC ROUTINE TO CONVERT A BINARY NUMBER 
a § . SBTTL INTO ITS DECIMAL ASCII EQUIVALENCE 
79 1 3¢ 
79 1 § ; This routine takes a binary number, converts it into a decimal number, and 
79 190 ; then converts the decimal number into its ASCII equivalence. An implicit 
79 191 ; assumption is made that the binary number to be converted fits in a byte 
oe 136 ; (ie = has a value in the range 0 = 255 decimal). 
79 194 ; Inputs: 
79 195 ; 
79 138 3 RO “Number to convert into its ASCII equivalence 
fa i : R2 “Field in which to store the result 
079 199 3; Outputs: 
079 00 ; 
079 01 ; RO-R1,R3_— “Destroyed 
079 6 3 Other registers -Preserved 
079 03 ;- 
079 04 
079 05 -ENABL LSB 
079 $08 ERRSCNV_HEX_DEC:: : 
53 F869 CF 9E 0793 0 MOVAB CONV_TABLE,R3 ; Retrieve address of conversion table 
62 2020 8F 860 b) op soe MOVW a*Aa/ 7, (Re) ; Blank out first two bytes of field 
51 D4 O79D 2210 CLRL R1 ; Clear high order longword 
50. 0 (51 50 00000064 8F 7B O79F 2211 EDIV #100,R0,R1,R0 ; Determine number of 100s and remainder 
4 13 O7A8 sig BEQL ; Branch if no 100s : 
62 6341 90 Braa $si7 MOVB (R3)CR1), (R2) 3; Otherwise store number in 100s place 
51 D4 O7AE 2215 10$: CLRL R11 ; 
50. —s(é51 50 OA 7B 0780 2216 EDIV #10,20,R1,R0 ; Determine number of 10s and remainder 
05 13 0785 2217 BEQL 
01 A2 6341 90 Ber $5i8 MOVB (R3)CR1),1(R2) ; Store number in 10s place 
02 A2 6340 90 O7BC $55¢ 20$: MOvB (R3)CROJ,2(R2) 3 store number in 1s place 
05 O7C1 2221 RSB ; Return 
07C2 2222 -DSABL LSB 
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7¢ 4 -SBTTL - FORMAT_PKT, ROUTINE TO FORMAT PACKET 
7¢ 5 -SBTTL - INFORMATION 
re 2888 
7¢ 8 ; This routine formats packet information fields within an _OPAO error log 
ue 3 3; message. The formatted packet field appears in the message as follows: 
oe 13 FLAGS/OPC/STATUS/PORT xx/xx/xx/xx 
4: : 3; The peaches fields are formatted from left to right by calling the routine 
ore : ; HEX_TO_ASCII for each packet field to be formatted. 
7¢ ; Inputs: 
07¢ : : 
07¢ 8 ; Re “Address of _OPAO Error Log Message 
o7c $23 3 & “Address of the UCB 
ere ¢ 3 RG “Address of an _OPAO Error Logging Table Entry 
o7c 4 ; It is assummed that UCBS$T_OPAO_TEMP has been initialized with the packet 
07¢ 43 ; information to be formatted. 
0O7¢ 44; 
07C 45 ; 
07C 46 ; Outputs: 
07C ot! $ 
07C 48 ; RO-R1 : -Destroyed 
07¢ 249 ; Other registers -Preserved 
07C 250 ;- 
07¢ 251 
07C¢ $2¢ -ENABL LSB 
o7c 53 FORMAT_PKT: 
007C 8F BB O7C See PUSHR #*M<R2,R3,R4,R5,R6> ; Save some registers 
0 03 A& 98 0766 2255 CVTBL OFFSET(R4S,RO ; Retrieve offset to field to format 
2? ff gocn $28 ADDL RO, ; Compute address of field to format 
55 QOBC C3 9E O7CD 57 MOVAB UCBST_OPAO_TEMP+4(R3),R5; Get addr of Ist byte past pkt fields 
56 04 QA 3708 $28 MOVZBL #4,R6 3; Num of packets fields to be formatted 
51 75 9A 0705 366 10$: MOVZBL =(R5),R1 ; Get contents of next field to format 
50 02 00 07D8 61 MOVL #2,R : Set number of nibbles in packet field 
6A 10 07DB seg BSBB HEX_TO_ASCII ; Format the current packet field 
52 06 «(O07DD 226 INCL ; Step over the delimiter 
F356 «OF Boe $06 SOBGTR R6,10$ ; Continue until all fields formatted 
007C 8F BA Oye 66 POPR #°M<R2,R3,R4,R5,RO> ; Restore registers 
05 greg 67 RSB ; Return 
7E 68 -DSABL LSB 


FOR 
Q 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SSNS NNN > 
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ODOM > NNN Sot 


I 16 
& Logging Routines 16-SEP-1984 01:16:25 VAX/VMS Macro Vv04-00 Page 50 
ROUTINE % FORMAT A 1 mi atts yi 1:48:48 DRIVER. SRCJPAERROR .MAR; 2 . (3) 
-SBTTL = FORMAT_PORT, ROUTINE TO FORMAT A 
-SBTTL = REMOTE PORT NUMBER 


59 
; This routine formats a remote port number field within an _OPAO error tog 
message. The remote port number appears as a decimal number after formatting. 


Inputs: 
s “Address of _OPAO Error Log Message 
a “Address of the UCB 
RG “Address of an _OPAO Error Logging Table Entry 


It is assummed that UCBS$T_OPAO_TEMP has been initialized with the 
remote port number to be formatted. 


Outputs: 

RO-R1 : -Destroyed 
Other registers -Preserved 
-ENABL LSB 

FORMAT _PORT: 
MOVQ R2,-(SP Save registers 
CvTB OFFSET(R4) ,RO Retrieve offset to field to format 
ADDL RO,R2 Compute address of field to format 


MOVL UCB$T_OPAO_TEMP(R3) ,RO 
BSBS ERRSCAV_HER_DEC 
nove (SP)+,R2 


-DSABL LSB 


Retrieve remote port number 
Format the remote port number 
Restore registers 

Return 


MO OONAUE WN $9 ODNOAUEWN  O OONOU LS WO 


naa 
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1 
1 
1 
1 
1 
1 
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3 
3 
3 
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4 
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-SBTTL = FORMAT_REGS, ROUTINE TO FORMAT PORT 
-SBTTL = REGISTERS 


+ 


This routine formats the port register fields within an _OPAO error log 
message. Only the contents of selected port registers are formatted. The 
formatted register fields appear in the message as foilows: 


CNF/PMC/PSR 9000000000 2000000000000 20000000000 


The port register fields are formatted from left to right by calling the 
routine HEX_TO_ASCII for each register field to be formatted. 


Inputs: 
| “Address of _OPAO Error Log Message 
R “Address of fhe UCB 
R4 “Address of an _OPAO Error Logging Table Entry 
It is assummed that the three yn ay Degtaning at UCBST_OPAO_TEMP 
have been initialized with the values of the device registers to be 
formatted. 

Outputs: 
RO-R1 . -Destroyed 
Other registers -Preserved 


LSB 


ENABL 
FORMAT_REGS: 
PUSHR #*M<R2,R3,R4,R5,RO> 


; Save some registers 


CVTBL OFFSET(R4S,RO ; Retrieve offset to field to format 
ADDL RO,R ; Compute address of field to format 
MOVAB UCBST_OPAO_TEMP(R3),R5 ; Get address of first port register 
MOVZBL #3,R6 ; Num of register fields to be formatted 
10$: MOVL (R5)+,R1 ; Get contents of next port register 
MOVL ; Set number of nibbles in packet field 


#8, ; 
BSBW HEX_TO_ASCII ; Format the current port register field 
INCL ; Step over the delimiter 

SOBGTR R6,10$ :; Continue until all registers formatted 
POPR #*M<R2,°3,R4,R5,RO> ; Restore registers 


RSB ; Return 
-DSABL LSB 
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-SBTTL = FORMAT_REV, FORMAT PORT UCODE REV LEVELS 


+ 
This routine formats the PROM and RAM revision levels within an OPAO message. 
The formatted field appears in the message as follows: 


RAM/PROM rev iS xKxxx/xxxx 


; The fields are formatted from left to right by calling the routine 
HEX_TO_ASCII for each rev. 


; Inputs: 
Re “Address of OPAO error message 
R “Addr of UCB 
R4 “Addr of OPAO error message table entry 


It is assumed that UCBST_OPAO_TEMP has been initialized with 
the rev Level information to Be formatted. 


; Outputs: 


AAAI PUDINININININYINIPNINIPINYININIPIPPIPYNIPINIPYPGPITUPIPINPIPIPINPYD 


‘G9 Gd GO Cd Cd Gd Cd Cd Cd CO OD C9 GD Cd Cd Cd CD CD Cd Cd Cd Cd Gd GD G9 CO CD CD Co: : = 
WAN AIWIAIAIAILN AWWA AANA WAI NAINA AINA NINA ANIA AANA AI 


OO OOOO 0000900 09 09 09 69 09 09 09 SII NINN SN NP AAAAAAAA AMMUNITION 
AIF WR SO ODNAWNE WIN $9 OD NAN EWIN 2D ODNA UNE WP O ODNOAULS UP 


RO,R1 -Destroyed 
Other registers -Preserved 
-ENABL LSB 
FORMAT_REV: 
007C 8F 6B 5 PUSHR #*M<R2,R3,R4,R5,R6> ; Save caller's registers 
0 O03 a4 98 6 CVTBL OFFSET(R4S,RO ; Retreive offset to field to fmt 
52 50 0 A ADOL RO, ; Compute addr of field to fmt 
55 00B8 C3 E D MOVAW UCBST_OPAO_TEMP(R3),.R5 ; Get addr of RAM rev 
56 02 QA ¢ MOVZBL #2,R6 3; Two rev levels to fmt 
51 85 B60 5 10$: MOVW (R5)+,R1 ; Get next rev level 
50 04 00 8 » MOVL P :; 4 hex digits/rev level 
OA 10 BSBB HEX_TO_ASCII :; Format this rev ; 
~ «CS D INCL R ; Step past slash delimiter, / 
F3 56—CO#F SF SOBGTR R6,10$ ; Continue formatting revs 
007C 8F BA 42 POPR #*M<R2,R3,R4,R5,RO> ; Restore registers 
05 oR? RSB 3; Return to caller 
O82? -DSABL LSB 


= | 
Pra 
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-SBTTL = HEX_TO_ASCII ROUTINE TO CONVERT A BINARY NUMBER 
-SBTTL = INTO ITS ASCII EQUIVALENCE 


Zé 

; This routine takes a binary number, converts it into its ASCII equivalence, 
3; and stores it in the field provided. The nibbles of the binary number are 

3; processed and stored in their ASCII equivalences from left to right. This 

3 routine is capable of handling up to a longword at a time in this fashion. 


: Inputs: 
; RO “Number of nibbles in field to be converted 
3 R1 “Number to convert into its ASCII equivalence 
: R2 “Field in which to store the ASCII equivalences 
: Outputs: 
: RO,R3-R4 -Destroyed . 
§ R “Address of first byte past field 
; Other registers -Preserved 
LSB 
HEX_TO_ASCII 
CONV_TABLE,R3 ; Retrieve address of conversion table 
ASHL #2,R0,R0 ; ; Compute bit number of leftmost nibble 
SUBL2 #4,R0 ; which is to be converted 


Extract the current nibble 

Move ASCII equivalence into field 
aera until all nibbles processed 
eturn 


10$: EXTZV.——- RO, #4, R1,R4 
P| (R3) (R41, (R2)+ 
ACBB ss #0, #-4,R0, 108 


R 
-DSABL LSB 
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Symbol table 
M_RPORT 
NOM_EX_LONGWORDS 
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_ OPASUCBO 
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PAERSK_ES_UXIN 
PAERSK_ET~CBL 
PAERSK_ET_DALT 
| PAERSK~ET "Hu 
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Symbol table 10-SEP-1984 01:16:10 CDRIVER.SRCJPAERROR.MAR;2 (35) 
_DFQ QOO000F PPDS$B_PORT 000000C 
PDTSL_DFQHDR 9000 0 PPD$B_ PROTOCOL QO0001A 
PDT$L_DGHDRSZ 0 PPDS$B_RST 0000025 
PDT$L_DGNE THD 0000194 PPD$B_RST_PORT 0000024 
PDT$L_DOQELOGOUT 00002E0 PPDS$B_STATUS 000000 
PDTSL_GPTBASE 00002eC PPD$B_SWFLAG 0000008 
PDTSL_GPTLEN 0000230 PPDS$B_SYSTEMID 0000014 
| PDTSL-LBDG 00000184 PPDSB_TYPE 30008008 
SL_MFO 00000100 PPDSC_LB_LENGTH 0000 6 
| PDTSL_MFQHDR atta PPDSC_LCB_DATA 0000001 
| PDTSL_MQELOGOUT 00000320 PPDSC_LENGTH ee: 
| PDTSL-MSGHDRSZ = 90000084 PPDSC_MIN DGSIZ 0000005 
| POTSL_MTC 00000104 PPDSC_SETCKT = 00000019 
PDTSL_PFAR 00000108 PDSC_SNDDG = 00000001 
PDTSL_PMC 000000E8 PPD$K_LB_LENGTH 00000046 
PDT$L_POLLERDUE 0000018C PPDSK_LERGTH 00000012 
PDT$L_POOLDUE 00000188 PPDS$L_BLINK 00000004 
PDTSL_PPR 0000010C PPD$L_DG_DiSC 00000028 
PDTSL_PS OOO000EC PDSL_FLINK 00000000 
TSL_-PSR 000000F 8 PPDSL_IN_VCD 00000018 
PDTSL_SPTBASE poonness PPDSL_LBTRC 00000042 
PDTSL_SPTLEN 00000228 PPD$L_PO_ACK 00000010 
PDTSL_UCBO = 000000DC PPD$L_PO_NAK 00000014 
TSL_VBDT 0000021C PPDSL_PO_NRSP 00000018 
PDT$L_VvPOB 00000218 PPD$L_P1_AC 0000001¢ 
PDTSM_PwWF CLNUP = 00000001 PPD$L_P1_NAK 00000020 
PDT$OQ_ one 000001F0 PPD$L_P1_NRSP 00000024 
PDT$Q_ COMO 000001F8 PPDSL_REC_BOFF 00000028 
PDT$Q_ COMQBASE 000001E0 PPDSL_REC_NAME 00000024 
PDT$Q_COMGQH Q00001E8 PPDSL_RPORT_FCN 00000020 
PDT$Q~ COMOL 000001E0 PPDS$L_RPORT_REV 0000001C 
PDT$O_DFREEQ 000001D0 PPDSL_RPORT TYP 00000018 
PDT$Q_F ORMPB 00000174 PPDS$L_SND_BOFF 00000020 
PDT$Q_MFREEQ 00000108 PPDSL_SND_NAME 0000001C 
PDT$Q_RSPQ 00000200 PPD$L_ST_ADDR 00000018 
PDT$O_TEMP_RSPO 0000019C PPDS$L_XCT_LEN 00000018 
PDTS$V_ = 00000001 PPDSM_CST = 00008000 
PDTS$V_PWF_CLNUP = 00000000 PPDS$M_DISPOSE = 60000001 
PDT$W_BDTCEN sad Sah PPDSM_RSP = 00000001 
PDT$W_DOELEN 00000210 PPD$Q_CURTIME 00000048 
TSW_LPORT STS 00000110 PPD$Q_NODENAME 00000040 
PDTSW_MOELER 00214 PPD$Q_SWINCARN 00000028 
T$W~PBCOUNT 00000112 PPD$Q"XCT_ID 00000010 
PDT$W_STOGDYN 00198 PPDST_HWTYPE 90000030 
PDT$W-S7DGUSED 0000019A PPD$T_SWTYPE 90000060 
PORT_REGS LOGGED = 00000006 PPDST_SWVERS 00000024 
PORT” UCODE 0000040C R 01 PPDSV_ = 00000000 
PPDSE_DEF ST 00001C PPDS$W_LCB_LEN7 0000000C 
PPD$B_FLAGS 000000 PPD$SW_LENGTH 00000010 
PPDSB_HWVERS 00034 PPDSW_MASK 00000010 
PPD$B_LBDATA 00001 PPDSW_MAXD 0000001C 
PPDSB-LCB_O 000001 PPDSW~MAXMSG 90000016 
PPDSB_LCB_LPORT 44h PPDSW_MTYPE 000001 
PPDSB_LCB_ T 000000F PPDSW_M_VA 0000014 
PPD$B_LCB_OPC 0000011 PPDSW-STZE 0000008 
PPD$B_LCB_PORT 0000000E PRS _IPL eeeeeree = §=6X OT 
PPD$B_OPC 0000000E Q_URLOCKED 000002A5 R 01 
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SEP=1984 01:16:25 VAX/VMS Macro v04-00 Page 57 P 
18-8 SEP=1 1382 BH: :16: $3 DRIVER. SRE CIP AERROR.MAR; 2 . (35) ly 
UCB$W_DEVSTS = 9000068 
UCBSW_ERRCNT = 000000 
Matis py Si 0000004 
UCBSW_MSGBYTCNT QO000F4 
mati _MSGPPDTYP 00000F6 
UCBSW_STS = 4844 
UCB. M-MSGFKLOCK = 00000004 
UCB V grggrKLOck 2 SOO ooS 
NLOCR_BAD 00000295 R 01 
VECSL TDR = 00000008 
VECSL_INITIAL = 0000000C 
ALWAYS = aaa! 
V-OF FLINE = 00000001 
V_PKT = 00000003 
V_REGS = 00000004 
V~RPORT = 00000002 
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PSECT name Allocation PSECT No. Attributes 
- ABs % 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
$$$115_DRIVER 00000864 ( 2148.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD 
00000944 ( 256°} 8s ( ¢°} NOPIC USR CON ABS LCL NOSHR- EXE RD 
| $$$110_MSGS O000009A6 ( 2470.) 03 ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD 
deer ene wer ee eee nem nee oe we 
| ! Performance indicators ! 
i es 
| 
Phase Page faults CPU Time Elapsed Time 
Initialization — 35 00:00:00.02 OO: 0006-8 
C processing 133 00:00:00.46 00:00:03.31 
Pass 1 624 00:00:19.74 00:01:11.93 
Symbol table sort 0 abs ae SED 00:00:09.17 
Pass 2 “1¢ 00:00:05.30 00:00:18.81 
Symbol table output 00:00:00.24 00:00:01.58 
Psect synopsis output 2 Rs i E 00:00:00.02 
Cross-reference output 0 0:00:00.00 00:00:00.00 
Assembler run totals 1211 00:00:28.09 00:01:47.14 
The working set Limit was 2400 pages. ’ : 
167702 bytes (328 pages) of virtual memory were used to buffer the intermediate code. 
There were 120 pages of symbol table space allocated to hold 2150 non-local and 70 local symbols. 
432 source Lines were read in Pass 1, produc ing 33 object records in Pass 2. 
0 pages of virtual memory were used to define 47 macros. 
Peer eee meson eee ee ee ete ew eee + 
; Macro Library statistics : 
Macro Library name Macros defined 
-$255$DUA28: CORIVER.OBJJPALIB.MLB; 1 9 
_8255$DUA28: (SYS.OBJJLIB.MLB; 1 ra) 
$255S$DUA28:(SYSLIBISTARLET.MLB;2 8 
TOTALS (all Libraries) 41 


2482 GETS were required to define 41 macros. 
| There were no errors, warnings or information messages. 
| MACRO/L1S=L 1S$:PAERROR/OBJ=0BJ$ : PAERROR MSRC$:PAERROR/UPDATE = (ENH$: PAERROR) +EXECMLS$/L1B+L1B$:PALIB.MLB/LIB 


| 
' 
| 
i 
i 


v04 
DRIVER. SRCIJPAERROR.MAR; 2 


-00 Page 3 


NOWRT NOVEC BYTE 


WRT NOVEC BYTE 


8 
5) 


DIGITAL EQUIPMENT CORPOR 
CONFIDENTIAL-AND PROPRIE 


VAX/VMS V4.0 


0113 AH-BT13A-SE 


ENT CORPORATION 
ND PROPRIETARY 


P 


AH-BT13A-SE DI 
VAX/VMS V4.0 | CO 


10114 


